Workbook backup macro
 

Looking to create a workbook backup macro. I want to copy active
workbook to a new workbook name. The backup workbook should be passive
"without macros", "without formulas" & "without charts". Sample code I
tried does delete macros as it copies but not worksheet code.

Workbook backup macro
 

Backup before running any new macro for the first time ever (in case the end
results are unintended):

Sub LoopingMacro()

Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count

' Begin the loop.
For I = 1 To WS_Count

Worksheets.Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Next I

End Sub

Regards,
Ryan---

--
RyGuy


"Fan924" wrote:

Looking to create a workbook backup macro. I want to copy active
workbook to a new workbook name. The backup workbook should be passive
"without macros", "without formulas" & "without charts". Sample code I
tried does delete macros as it copies but not worksheet code.