I'm frustrated! My code is so simple, but for some reason (which I know
I missed) is not running. It's a simple Do...Loop Until statement.
Inside the loop are just if...then conditionals. However, when I run
it, I get an error stating that there is a loop without a do. Here is a
part of the code:

Do
If Me.Cells((i - c) + j, 3) = 3 Then
If (DateDiff("n", date1, date2)) / 60 0.3
Then
cumtime = cumtime + (DateDiff("n", date1, date2)) / 60
End
End
j = j + 1
Loop Until DateDiff("d", date1, date2) = 1

Looks pretty straightforward to me. Why am I getting the error
message?? Any help would be greatly appreciated. Thanks.

Sunny

*** Sent via Developersdex http://www.developersdex.com ***