Print Multiple Copies of The same Sheet

[Triggman]

I have a workbook with one sheet. I need to print out 25. copies with each copy having a sequential number in a certain cell and then save the file with the last number

 

[Larry Haydn]

You can set up a loop to run from 1 to 25.

Assumption:
* Worksheet name is "MyData"
* Cell to write sequence number is Z1
* You have selected the Print Area A1:Z50

Dim RowNo as Long

For RowNo = 1 to 25
     Sheets("MyData").Range("Z1") = RowNo
     Sheets("MyData").PrintOut
Next