This is from the VBA help:

Remarks
This property is True if the worksheet contains a filtered list in which
there are hidden rows.

Example
This example displays the filter status of Sheet1 in a message box.

If Worksheets("Sheet1").FilterMode = True Then
MsgBox "Filter mode is on"
Else
MsgBox "Filter mode is off"
End If

Not sure that's what you're looking for, but thought it might be.

Keith

"Ixtreme" wrote:

Hi,

On a large sheet with data I have a print button that a user can
click. On the sheet I have another button that creates an autofilter.
What I would like to have is that if the user selects the print button
and NO selection has been made in the autofilter, the routine will
exit sub.

somethin like :

if ActiveSheet.PageSetup.PrintArea =
ActiveSheet.AutoFilter.Range.Address is empty then exit sub.