Progressive numbering of Excel worksheets

S

Sdorph

Is it possible to print multiple copies of an Excel worksheet with progressive
numbers
 
B

Bernard Liengme

This macro might help

Sub Macro1()
Application.ScreenUpdating = False

For j = 1 To 5
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("E20") = Range("E20") + 1
Next j

Application.ScreenUpdating = True
End Sub

best wishes
 
Top