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