Selected Answer
Dr Liss
In the attached file, there's table of data, a yellow cell J1 for a filter value and a blue button to run the macro below. Change the value of J1 to 20 say and it will tell you there are no results (since column D has no values >=20).
The key thing is the test in bold below- if there's no results from the filter, the row of the last cell will be the same as the header row (1) and trigger the Else condition:
Sub CheckFilter()
Dim OutRng As Range
Set OutRng = Range("A1:F10")
' filter column D for J1
OutRng.AutoFilter Field:=4, Criteria1:=">=" & Range("J1").Value, VisibleDropDown:=Fals
' see last filtered cell is after header row (1)
If Cells.SpecialCells(xlCellTypeLastCell).Row > 1 Then
MsgBox "Displaying results"
Else
MsgBox "No results"
End If
'clear filter
OutRng.AutoFilter
End Sub
Hope you can modify this to work for you.