Visual Basic - NOMBRE DE TODAS LAS HOJAS DE UN LIBRO DE EXCEL

TENGO VB 6.0 Y NECESITO CONECTAR,E A UN LIBRO DE EXCEL Y MOSTRAR EL NOMBRE DE TODAS LAS HOJAS DE UN LIBRO DE EXCEL MIL GRACIAS POR SU AYUDA

Lo primero que tienes que hacer es crear una referencia en el proyecto de los objetos de excel y acontinuacion declaras la variables que necesitas.
Una para el objeto Excel aplicacion:
dim miAppXl ' no recuerdo la referencia exacta.
dim miLibroExcel as Workbook
dim mihojaExcel as Sheet
'Compruebas si hay otra instancia de excel creada
set miAppXl =getobject( , "Excel.Aplication)
'controla los errores
'si no hay instancia de excel creala
set miAppXl =setobject( "Excel.Aplication)

set miLibroExcel =miAppXl.openwokbook("NombreLibro)'Comprueba las sintaxis de todo ya que te lo digo de memoria

for each miHojaExcel in miLibroExcel.sheets
msgbox miHojaExcel.name

next miHojaExcel
espero te ayude

nota:
Comprueba la sintaxis ya que no estoy en mi equipo para verificar.

En realidad mi solución no están avanzada como la mostrada anteriormente, lo hice a través de una conexión DAO algo así;
1.- En un form colocas list1, un commondialog1 y haces que en el commondialog1 abres una hoja de excel...
2.- Luego colocas un código algo así:
List1.Clear
Dim db As Database
Set db = OpenDatabase(CommonDialog1.FileName, False, False, "Excel 8.0;")
For jon = 0 To db.TableDefs.Count - 1
List1.AddItem db.TableDefs(jon).Name
Next jon
List1.AddItem "Se hallaron: " + CStr(db.TableDefs.Count) + " hojas "
List1.AddItem "En el libro: " + CommonDialog1.FileName
db.Close
Espero te sirva....
Por ciero esto es exportable a ADO pero no lo he hecho aún...
J2ML