遍历范围和检查值（Excel VBA）

Question

I have written a simple VBA code to loop through a range to check for a particular value, if it is true, then it would switch a boolean trigger to False.

However, my code does not work. Even though I have placed '12345' somewhere in the range, it still returns Infochk = True.

Code

Dim InfoChk As Boolean
InfoChk = True
LastRow = Sheets("Sheet1").Cells(Rows.count, "B").End(xlUp).row
For i = 7 To LR
    With Worksheets("Sheet1")
        If .Cells(i, 6).Value = "12345" Then
            MsgBox ("gotcha")
            InfoChk = False
            Exit For
        End If
    End With
Next i
MsgBox (InfoChk)

Any help would be greatly appreciated.

Answer 1

Use LastRow:

Sub poiuy()
    Dim InfoChk As Boolean
    InfoChk = True
    LastRow = Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row
    For i = 7 To LastRow
        With Worksheets("Sheet1")
            If .Cells(i, 6).Value = "12345" Then
                MsgBox ("gotcha")
                InfoChk = False
                Exit For
            End If
        End With
    Next i
    MsgBox (InfoChk)
End Sub