Macro Nombre de Hoja

Hola, Mario, Utiliza esta rutina en ThisWorkbook, y me cuentas como te va:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target <> [U3] Then Exit Sub
If [U3] <> "" Then
For Each Hoja In ThisWorkbook.Sheets
If [U3] = Hoja.Name Then Exit Sub
Next
Sh.Name = [U3]
End If
End Sub

On 28 jun, 07:43, Mario wrote:

Tengo esta macro:

Sub Nombre_Hoja_Caja()
ActiveSheet.Name = Range("U3").Value
End Sub

Su función es colocar en la pestaña de la hoja el nombre que tenga en
U3; pero debo correr la macro manualmente. Lo que quiero hacer es que
me la corra inmediatamente presione ENTER en la casilla U3.

Gracias,

Puedes intentarlo con el evento 'WorkSheet Change'
agregarias algo mas o menos asi(digo, para que no cambies nada de lo
que ya tienes...)
Private Sub Worksheet_Change(ByVal Target As Range)
Nombre_Hoja_Caja()
End Sub

Hay muchas formas de hacerlo, intentalo y si tienes algun problema
comentas, saludos, JJGarcia