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.
|