Sub IncrementAndPrint()
Dim lngCounter As Long
Dim wks As Worksheet

Set wks = ActiveSheet
For lngCounter = 1 To 5
wks.Range("A1") = wks.Range("A1") + 1
wks.PrintPreview 'Change to wks.Printout
Next lngCounter
End Sub
--
HTH...

Jim Thomlinson


"jespl1" wrote:


I need to create a macro that will take a value in cell A1 and add 1 to
it, and put the new value back into cell A1, then print the page. It
should then add 1 to cell A1 again, putting the new value back into
cell A1 and print again. It should repeat this process untill cell A1
reaches a certain value and then stop.

Any help at all would be very appreciated.
thank you


--
jespl1
------------------------------------------------------------------------
jespl1's Profile: http://www.excelforum.com/member.php...o&userid=27451
View this thread: http://www.excelforum.com/showthread...hreadid=469610