Selecting The Last Cell containing specific text doesn't work

[CaptainCsaba]

Hi!

I am trying to select the last cell in column A that contains numbers with the thousand separators eg 1,234,567. Previously in one of my other codes I used "*#,#*" but here it does not seem to work. If I write anything instead it perfectly finds it but not like this. What am I missing?

Sub SelectLastCell()Dim lr, i, n As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lr To 2 Step -1
    On Error Resume Next
    n = WorksheetFunction.Search("*#,#*", Cells(i, 1))
    If Err = 0 Then
        Cells(i, 1).Select
        Exit For
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[footoo]

Perhaps :

Sub SelectLastCell()
Dim lr as Long, i as Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
    If Cells(i, 1) >= 1000 Then
        Cells(i, 1).Select
        Exit For
    End If
Next i
End Sub