sequentially number multiple copies of the same page

Hello!

I have 1 worksheet that I need to print out 100 time and I need to put the page numbers in the footer (1 of 100, 2 of 100, etc)

Does anyone know how I do this?

I posted this message in the General forum earier but I think that is the wrong forum so I'm posting it here.

Thanks in advance.
Kerri

Try

Sub Print1()
Number = 1
Do Until Number = 101
Range("A1") = Number
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Number = Number + 1
Loop
End Sub

Range("A1") is position of footer.

I'm new at this...where do I put the code?

ingleg, please edit your post to add code tags.