C&S,

You could try something like this:

Sub MultiPrint()
Dim PrintCount As Integer
For PrintCount = 1 To 5
ActiveSheet.PageSetup.CenterFooter = "Page " & PrintCount
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

To increase the number of prints, simply change the "5" to whatever value
you require

Hope this helps

Pete


"C&S" wrote:

How do I print the same sheet multiple times with increasing page numbers?