VBA Autofilter -- Not filtering

[alansidman]

Attached is a sample file. I am attempting to filter Column C employing VBA. I wish to filter so that only records beginning with 53 are visible. When I run this, it returns no records.

Code employed:

Sub Filt()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:L1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A1:L" & lr).AutoFilter Field:=3, Criteria1:="=53*"
    
End Sub

Seem to be having a senior moment and cannot get the criteria correct.

TIA

Alan