Stop Macro if Autofilter is Blank

Greetings, Gurus.

I am filtering to all columns that have the word "Show" in column 35. In my VBA I need an error trap to exit my VBA if the filter comes back empty. Below is an example of what I attempted, and it did not work because if I offset 1 from A5 it goes to A6 even if the row is hidden.

    Sheets("SPL Pricing by P5").Select
    ActiveSheet.Range("$A$5:$AI$396").AutoFilter Field:=35, Criteria1:="Show"
    Range("A5").Offset(1, 0).Select
    If ActiveCell = 0 Then GoTo NOCHANGE

Thanks in advance for any help you can offer.

Hutch

Try:

    Sheets("SPL Pricing by P5").Select
    ActiveSheet.Range("$A$5:$AI$396").AutoFilter Field:=35, Criteria1:="Show"
    If Range("A" & Rows.Count).End(xlUp).Row = 5 Then GoTo NOCHAN

PS. If it's not needed, it's better to use

if ... then ... else ... end if

construction then

if ... then Goto ...

May be this code will help you

Sub Test()
    Dim rng As Range

    Set rng = ActiveSheet.AutoFilter.Range
    
    If rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 > 1 Then
        MsgBox "There are results"
    Else
        MsgBox "No results"
    End If
End Sub

You're welcome. Glad we can offer some help
Regards

Glad to hear that too
Thnx for marking thread SOLVED and for Rep point