No Records Found (autofilter)

I have a macro which filters a record set with a criteria. Sometimes there will be filtered records other times not. I would like to do an If Then Else based on the filter displaying or not displaying rows. What follows is my failed attempt.

**Code Snippet

ActiveSheet.ListObjects("Table_Query_from_SOTAMAS9010").Range.AutoFilter Field _
        :=5, Criteria1:="HODINT", Operator:=xlAnd
    Application.Goto Reference:="Table_Query_from_SOTAMAS9010"
    
       If Selection.SpecialCells(xlCellTypeVisible).Rows.Count >=1 Then    <---This is not working

'Do first action
Else
'Do second action
End If

****End of Code

Appreciate any help,
Brian

Hi bmcgrath

Please wrap your code in Code Tags.

Here's code I've used successfully...adapt to your needs (the Minus 1 is to eliminate the Header Row)

If Not ActiveSheet.ListObjects("ProjTbl1").AutoFilter.Range.Columns(8). _
   SpecialCells(xlCellTypeVisible).Count - 1 = 0 Then

Thanks John.

Bmcgrath,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.