vba courses london - VBA

All you need to do is create a loop that after editing the document saves it under a different name eg

Sub EditRoutine

Dim Sheet As Worksheet
Dim SheetName As String

For Each Sheet In ActiveWorkbook.Worksheets

SheetName = Sheet.Name

<Run Edit/Replace Function>

Sheet.Save As "C:\My Documents\New" & SheetName

Next Sheet

End Sub