Excel - Duplicar hoja excel sin fórmulas

Sub DuplicarPlantillaLV()

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("PlantillaLV").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

ActiveSheet.Name = nombre

For Each obj In ActiveSheet.Shapes

    obj.Delete

Next

Application.ScreenUpdating = True

End Sub

Option Explicit

'//By JuanC - Mar. 2017

Sub formulas_a_valor()

Dim rng As Range, cell As Range

On Error Resume Next

With Application

     .ScreenUpdating = False

     .Calculation = xlCalculationManual

     .EnableEvents = False

End With

Set rng = Hoja1.UsedRange

Err.Clear

Set rng = rng.SpecialCells(xlCellTypeFormulas)

If Err.Number <> 0 Then GoTo fin

For Each cell In rng

    With cell

         .Value = Application.Evaluate(.Value)

    End With

Next

fin:

With Application

     .ScreenUpdating = True

     .Calculation = xlCalculationAutomatic

     .EnableEvents = True

End With

End Sub

Sub DuplicarPlantillaLV()

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("PlantillaLV").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

ActiveSheet.Name = nombre

For Each obj In ActiveSheet.Shapes

obj.Delete

Next

Application.ScreenUpdating = True

End Sub

Sub DuplicarPlantillaLV()

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("PlantillaLV").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

ActiveSheet.Name = nombre

For Each rngcell In Range("A1:L35")

'añadimos el control que detecta si la celda tiene Fórmula

If rngcell.HasFormula And rngcell.Value <> 0 Then

'cuando la tenga asignamos a la celda el valor que tenga....

rngcell.Value = rngcell.Value

End If

Next rngcell

For Each obj In ActiveSheet.Shapes

    obj.Delete

Next

Application.ScreenUpdating = True

End Sub