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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200706/1

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/

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