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?

--
Bill @ UAMS

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" wrote:

> 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?
>
> --
> Bill @ UAMS

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

--
Bill @ UAMS


"Mike H" wrote:

> 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" wrote:
>
> > 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?
> >
> > --
> > Bill @ UAMS