On Sat, 23 Jun 2007 22:54:14 +0100, blackbox via OfficeKB.com <u20390@uwe
wrote:

Do
Loop While I < 26
Range("D4") = LastPrint
Range("E4") = PrintTime
I = I + 1
Else: End

I think this should be:

Do
Range("D4") = LastPrint
Range("E4") = PrintTime
I = I + 1
Loop While I < 26


--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/