Hola también,
te paso un ejemplo de cómo listar en un control ListBox todas las hojas que tiene un libro Excel:
Código:
Dim oExcel As Object
Dim i As Integer
Set oExcel = GetObject(App.Path & "\Libro1.xls")
For i = 1 To oExcel.Sheets.Count
List1.AddItem oExcel.Sheets(i).Name
Next i
oExcel.Application.Quit
Set oExcel = Nothing
MsgBox "Fin"