Office - Nombre Hoja = Celda

Muy buenas:
He creado una macro con el fin de que me modifique una tarifa en función de la cifra introducida previamente. Esta aparece en una nueva hoja. Quisiera que también previamente se escribiese el Nombre Cliente, que se convirtiese en el nombre de la nueva hoja.

Muchas gracias, y saludos, navegantes!!

Este codigo hace lo que quieres, adaptalo a tus necesidades o a tu procedimiento solo necesitas introducir la variable y el procedimiento el Sub y el End Sub no te hace falta, a menos que desde tu macro llames a un modulo por medio del nombre de de la instruccion, por ejemplo Run ("nombredehoja")

Sub nombre()

Dim nombrehoja As String

nombrehoja = ActiveSheet.Range("A1")
With ActiveSheet
.Name = nombrehoja
End With
End Sub