Mira, en este pequeño ejemplo mostramos en un control ListBox los nombres de todas las hojas del archivo Excel:
Código:
Private Sub Command1_Click()
Dim oExcel As Object, i As Integer
Set oExcel = GetObject(App.Path & "\Archivo.xls")
For i = 1 To oExcel.Sheets.Count
List1.AddItem oExcel.Sheets(i).Name
Next i
oExcel.Application.Quit
Set oExcel = Nothing
End Sub