Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Without Code
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Without Code
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Without Code
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help With VBA Copy Code | Excel Programming | |||
Got the Copy/Cut Code But what is the Paste Code | Excel Programming | |||
Help with COPY code | Excel Discussion (Misc queries) | |||
vba copy code | Excel Programming | |||
Code to copy range vs Copy Entire Worksheet - can't figure it out | Excel Programming |