Modificar macro

[eneada]

Hola a tod@s,

Tengo esta macro que funciona perfectamente, que renombra las hojas según el listado de nombres de la hoja "AA_Nombres":

Sub renombra_hoja()
Dim Hoja As Worksheet
Dim Fila As Long
Fila = 5
For Each Hoja In Worksheets
  Hoja.Name = Cells(Fila, 3)
  Fila = Fila + 1
Next
End Sub

 

¿Se podría modificar la macro para que en vez de renombrar la hoja, pegue el nombre en la celda A2 (por ejemplo)? 

[eneada]

El archivo de ejemplo

clientes.rar