Aumentar contador, tomando como base una celda

Hola Experto

Tengo un macro, que copia una hoja y aumenta un numero de registro de la misma, asi como cambiar el nombre de la pestaña.

podría copiar el numero de la celda directamente en la nueva pestaña, escribiendo unicamente el nuevo nombre

la macro es la siguiente

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 exit_Copy: Me.Hide