Using VBA to AutFilter When Values Not Known

[vba_monkey]

Hello,

I'm looking for a way to use VBA to AutoFilter a column for any value that is 90 or above. The column is column A, there are hundreds of values and there is no fore knowledge of which values will be present.

How can this be done?

Thanks

 

[mumps]

This macro assumes that you have headers in row 1 and your data starts in row 2.

Sub FilterData()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    ActiveSheet.Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:=">=90"
    Application.ScreenUpdating = True
End Sub

 

[vba_monkey]

Thank you

 

[mumps]

You are very welcome.