Or without a page number in a cell.

Sub PrintCopies()
Dim i As Long
For i = 1 To 3
With ActiveSheet
.PageSetup.LeftFooter = "Page " & i
.PrintOut preview:=True
'.Printout
End With
Next
End Sub


Gord Dibben MS Excel MVP

On Mon, 18 Sep 2006 21:15:02 -0700, Sdorph
wrote:

Is it possible to print multiple copies of a worksheet with a progressive
page number on each copy