Visual Basic - 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 :-)

Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
Set libro = GetObject("archivo.xls")
For i = 1 To libro.Worksheets.Count
Set hoja = libro.Worksheets(i)
Combo1.AddItem hoja.Name
Next