Hola amigos de AyudaExcel

Requiero de su ayuda para corregir una macro que he intentado de solucionar para no logro conseguirlo. Les explico.

Tengo la hoja UNO la cual tiene un botón para insertar una nueva hoja (que es una copia de la hoja HOJA PARA COPIAR), la macro del botón llama a otra macro para renombrar la hoja nueva pero lo que hace es agregar una nueva hoja en blanco y esa es la que renombra. No logro vincular con la hoja que realmente debería renombrar.

Gracias de antemano

EJEMPLO PARA RENOMBRAR HOJA.xlsm

Sustituye tus macros por esta:

Sub CopiarHoja()
Dim nombreHoja As String

nombreHoja = InputBox("ESCRIBA NONBRE DE NUEVA HOJA:")
If nombreHoja = "" Then Exit Sub

Sheets("HOJA PARA COPIAR").Copy Before:=Worksheets("ULTIMA")
ActiveSheet.Name = nombreHoja

MsgBox "¡ OPERACIÓN REALIZADA SATISFACTORIAMENTE !"
End Sub

 

Genial @Antoni muchas gracias!!!!?

Hola @Antoni estuve haciendo pruebas con tu solución y funciona a la perfección, pero se podrá definir de forma permanente la letra en mayúscula, es decir, que lo que uno escriba sea siempre en mayúscula. Gracias

ActiveSheet.Name = Ucase(nombreHoja)

 

Muchas gracias @Antoni?