Sub FindLast()
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
Next i
MsgBox "Found in row " & i
End Sub
Hi,Isnt there a simple line like the one to find the first one via ".match"?
Evaluate("=LOOKUP(2,1/(B1:B100=""out of order""),ROW(B1:B100))")