Visual Basic para Aplicaciones - Para expertos en excel

Hola amigos. Primero que todo gracias por leer este mensaje.
Nesecito que mi aplicacion Visual abra un archivo excel (en esto no tengo problema) y luego lea y me devuelva en un array los nombres de cada una de las hojas (sheets) que tenga el archivo.
Gracias :-)

No soy experto, pero este codigo hace lo que quieres...

Private Sub cmdExcel_Click()
Dim objExcel As Object
Dim objLibro As Object
Dim strRuta As String
Dim strHojas() As String
Dim co1 As Integer

On Error Resume Next

Set objExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If

strRuta = App.Path & "\Temporal.xls"
If Len(Dir(strRuta)) > 0 Then
Set objLibro = objExcel.WorkBooks.Open(strRuta)
ReDim strHojas(objLibro.Worksheets.Count - 1)
For co1 = LBound(strHojas) To UBound(strHojas)
strHojas(co1) = objLibro.Worksheets(co1 + 1).Name
Debug.Print strHojas(co1)
Next co1
objLibro.Close
End If
objExcel.Quit
Erase strHojas
Set objLibro = Nothing
Set objExcel = Nothing

End Sub

Gracias Mauricio. Resulto de maravillas. Muy agradecido.