Loop problems

[blackbox via OfficeKB.com]

this locks up Excel

Is it because I'm running a loop within an If, Then, Else?

Sub Timer()
Application.Wait Now + TimeValue("00:00:01")
Run_Time_and_Sales2
End Sub

Sub Run_Time_and_Sales2()

Dim LastPrint As Integer
Dim PrintTime As Double
Dim I As Integer

I = 1

LastPrint = Range("A" & I).Value
PrintTime = Range("B" & I).Value


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

Timer

End Sub

 

[Darren Hill]

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

I think this should be:

 

[blackbox via OfficeKB.com]

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