Progressive numbering of Excel worksheets
 

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

Progressive numbering of Excel worksheets
 

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
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Sdorph" wrote in message
...
Is it possible to print multiple copies of an Excel worksheet with
progressive
numbers