Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If Range("B" & i).Value = "out of order" Then Exit For
MsgBox "Found in row " & i
Note: this will erroneously return 1 if "out of order" is not found.