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