Excel - Ayuda Como puedo colocar el nombre de la hoja

Ayuda Como puedo colocar el nombre de la hoja en una celda, pues trabajo con varias hojas vinculadss y me seria mas practico en la hoja final que me actualice como titulo el nombre de la hoja en alguna cela de la fila A. si pueden audarme muchas gracias

Alguien dio en este foro para ello el siguiente codigo:

Sub NombreHojas()
Dim contador As Integer
For contador = 1 To Sheets.Count
With Sheets(1)
Cells(contador + 10, 2).Value = Sheets(contador).Name
End With
Next
End Sub

Cordial saludo

Pega esta formula en la celda donde deseass el nombre de la hoja

=EXTRAE(CELDA("nombrearchivo",A1),ENCONTRAR("]",CELDA("nombrearchivo",A1))+1,32)

Salu2

Excelente Marvin, no había usado la función CELDA y menos saber que esta acepta varios "tipos de información" como argumento.

Cordial saludo