Visual Basic - Nombre de hojas de Excel y VB 6

Buenas miren mi duda es que quisiera saber alguna forma de como poder hallar el nombre de una hoja de EXCEL o de las Hojas de todo un Archivo de EXCEL y llevarlos a un combobox o listbox, es urgente.

Yo lo habia hecho con esto:

Workbooks.open (Archivo EXCEL)
Application.ActiveWorkbook.Worksheets.Select

Pero cuando hago con esto me imposibilita de usar una conexion OLEDB con el Archivo EXCEL y VB 6, pues me dice que la conexion es imposible.

Quisiera saber si hay alguna forma de saber el nombre de las hojas de un EXCEL pero con otro metodo que no sea el "WORKSHEETS", gracias.

Sin "WORKSHEETS"

Dim oExcel As Object, 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