that does not work. It says Compilation error Expeted Do, For. Sub, Function
or Property. I cannot understand why this is the case. please help! thanks!

"Gary''s Student" skrev:

Right after your MsgBox, insert:

Exit Loop
--
Gary''s Student - gsnu200755


"Arne Hegefors" wrote:

Hi! I have a loop that goes through cells. I check if these cells have a
value that corresponds to another value. If so I do certain things. Then I
want to get out of the loop and straight to
Workbooks("FXOptionFile.xls").Close. Now the loop continues until
ActiveCell.Offset(i, 0) = "" . Please help!

Do Until ActiveCell.Offset(i, 0) = ""
If InStr(CStr(ActiveCell.Offset(i, 0)), ID) 0 Then
exStyle = ActiveCell.Offset(i, 1)
cPrt = ActiveCell.Offset(i, 2)
tpe = ActiveCell.Offset(i, 3)
matDate = ActiveCell.Offset(i, 4)
strike = ActiveCell.Offset(i, 5)
unts = ActiveCell.Offset(i, 6)
bw = ActiveCell.Offset(i, 7)
MsgBox "kjgh"
End If
i = i + 1
Loop

Workbooks("FXOptionFile.xls").Close