Copy Without Code

[BillCPA]

Sheet1 in a workbook has code behind it. Is there any way to create a copy
of that worksheet in the workbook and not have the code go with it?

 

[Mike H]

Hi,

Put this in a general module and it will copy the active sheet to a new
sheet with (copy) as an extension

Sub MakeCopy()
myname = ActiveSheet.Name
Application.DisplayAlerts = False
Sheets.Add().Name = ActiveSheet.Name & "(Copy)"
Worksheets(myname).UsedRange.Copy _
Destination:=Worksheets(myname & "(Copy)").Cells(1, 1)
Application.DisplayAlerts = True
End Sub

Mike

 

[BillCPA]

Thank you, sir! I made some minor modifications, but that gave me what I
needed.