Acerca de cómo utilizar Excel VB para extraer nombres de hojas

Sub listSheetName()

i = 1

Para cada hoja en Application.Sheets

Celdas(i, 1).Value = sSheet.Name

i = i + 1

Siguiente sSheet

Fin Sub