That worked. Got it to run through with the time delay as well.
Thanks!
One more question, do you know how I can interrupt the loop from a command
button?
I was thinking maybe an event Change with a command button linked to a cell
and either a Case statement or an If, Then Else but haven't been able to make
it work.
Sub Run_Time_and_Sales()
Dim LastPrint As Integer
Dim PrintTime As Double
I = 1
If Range("F1") = "x" Then
Do
LastPrint = Range("A" & I).Value
PrintTime = Range("B" & I).Value
Range("D4") = LastPrint
Range("E4") = PrintTime
I = I + 1
Application.Wait Now + TimeValue("00:00:01")
Loop Until I 24
Else: End
End If
End Sub
--
Message posted via
http://www.officekb.com