Excel - Duplicar hoja excel sin boton de macro

Sub ReplicarHojaActual()

nombre = Range("B3").Value

'Captura el valor de la celda B3

Sheets("Plantilla").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

'Duplica la hoja Plantilla y la copia despues de la hoja

ActiveSheet.Name = nombre

Sheets("Plantilla").Range("B3").ClearContents

'Limpia el contenido de la celda de donde obtiene el nombre de la hoja

End Sub

Sub ReplicarHojaActual()

Dim nombre$, obj As Shape

nombre = VBA.InputBox("Ingrese nombre de la hoja nueva", , "")

If VBA.Trim(nombre) = "" Then Exit Sub

Application.ScreenUpdating = False

Sheets("Plantilla").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

ActiveSheet.Name = nombre

For Each obj In ActiveSheet.Shapes

    obj.Delete

Next

Application.ScreenUpdating = True

End Sub

Sub ReplicarHojaActual()

Dim nombre$, obj As Shape

Dim wbkSrc As Workbook, wbkDst As Workbook

nombre = VBA.InputBox("Ingrese nombre de la hoja nueva", , "")

If VBA.Trim(nombre) = "" Then Exit Sub

Application.ScreenUpdating = False

Set wbkSrc = ThisWorkbook

Set wbkDst = Excel.Workbooks.Add

wbkSrc.Sheets("Plantilla").Copy After:=wbkDst.Sheets(wbkDst.Sheets.Count)

ActiveSheet.Name = nombre

For Each obj In ActiveSheet.Shapes

    obj.Delete

Next

Application.ScreenUpdating = True

End Sub

Sub ReplicarHojaActual()

Dim nombre$, obj As Shape

nombre = VBA.InputBox("Ingrese nombre de la hoja nueva", , "")

If VBA.Trim(nombre) = "" Then Exit Sub

Application.ScreenUpdating = False

Sheets("Plantilla").Copy after:=Sheets(ActiveWorkbook.Sheets.Count)

ActiveSheet.Name = nombre

For Each obj In ActiveSheet.Shapes

    obj.Delete

Next

Application.ScreenUpdating = True

End Sub