Simple enough to dynamically change a cell for each printed sheet using a
loop - but you need to specify how the data is to change for each iteration.
The following uses the iteration number (xCpy) to print the Week Number in
cell A1 of the sheet........

Sub MultiPrint()
Dim xCpy As Integer
For xCpy = 1 To 52
Range("A1") = "Week Number " & xCpy
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next xCpy
End Sub

--
Cheers
Nigel



"eaj" wrote in message
...
Want to print 52 copies of same sheet with only the change in data in one
of
the cells (date). Used a drop-down list to change the cell but it still
requires a lot of typing.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...el.programming