Insertar nombre automáticamente en la pestaña de la hoja

Haber si te vale esto. Introduce este código en el objeto ThisWorkbook del proyecto

Private Sub Workbook_NewSheet(ByVal Sh As Object)
On Error Resume Next
Dim noun As Variant
nombre:
noun = Application.InputBox("Introduzca el nombre de la nueva hoja")
If noun = False Or noun = "" Then
MsgBox "No se ha introducido ningún nombre. Inténtelo de nuevo", vbCritical
GoTo nombre
Else:
noun = UCase(noun)
ActiveSheet.Name = noun
End If
End Sub

Ten en cuenta que si pones el mismo nombre a dos hojas, mantendrá el nombre original