VBA : Exit While in If

Question

Ok, probably an easy one but I'm just starting to use this language and in this piece of code :

While DATA.Cells(1, i).value & "" <> ""
    If InStr(DATA.Cells(1, i).value, columnName) > 0 Then
        column = i
        Exit While
    End If
    i = i + 1
Wend

It looks like it's not the way to use Exit While ? How should I do it then ?

It's duplicated, but the question name is easy to someone else to find. @duDE — KodornaRocks, Jan 26 '16 at 10:53
Your condition in the While statement puzzles me. Can you please try to describe what it is supposed to do? — jkpieterse, Jan 26 '16 at 10:55

score 2 · Accepted Answer · edited May 23 '17 at 10:27

2

A While/Wend can only be exited prematurely with a GOTO or by exiting from an outer block (Exit sub/function/another exitable loop)

Change to a Do loop intead

Do While DATA.Cells(1, i).value & "" <> ""
If InStr(DATA.Cells(1, i).value, columnName) > 0 Then
    column = i
    Exit Do
End If
i = i + 1
Loop

Original answer from @Alex K. Break out of a While...Wend loop in VBA

edited May 23 '17 at 10:27

Community

1
1

answered Jan 26 '16 at 10:50

KodornaRocks

425
3
14

VBA : Exit While in If

1 Answers1