Sub Multiple_Print()
'
' Multiple_Print Macro
' Macro Prints worksheet 500 times
'
'
For Counter = 1 To 500
With ActiveSheet.PageSetup
.CenterFooter = Counter
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Next Counter
End Sub