You might want to try this. I used the preview feature. You can use print.

There are may be techniques to setup one print call with new page numbers.
Option Explicit

Public Sub Printsheet()
Dim Counter As Integer
For Counter = 1 To 5
Call PrintSetup(Counter)
ActiveWindow.SelectedSheets.PrintPreview
Next Counter
End Sub

Sub PrintSetup(PageNumber As Integer)
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = PageNumber
End With
End Sub



--
Malik


"oshrat" wrote:

How do I print a one page spreadsheet multiple time, each with its own page
number