El siguiente ejemplo te muestra -mediante ADO- el nombre de las hojas de un
libro de Excel:

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\carpeta\archivo.xls;" & _
        "Extended Properties=Excel 8.0"
    Set Rs = Cn.OpenSchema(adSchemaTables)
    While Not Rs.EOF
        MsgBox Rs!TABLE_NAME
        Rs.MoveNext
    Wend
    Rs.Close: Set Rs = Nothing
    Cn.Close: Set Cn = Nothing