if ActiveSheet.FilterMode then
msgbox "Data is filtered"
End if

From help on FilterMode

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

--
Regards,
Tom Ogilvy

LD wrote in message
...
Sorry for not explaining it very well.
The autofilter is always on.
.EnableAutoFilter = True

I want to test if the data in the list is filtered or not.
Thanx again.


"LD" wrote in message
...
Hi all.

Is there some way to determine if the autofilter is on?

I have a button to display all data, but i want to exit the sub
if the data is not filtered.

Hope you understand what i'm trying to say.

Thanx in advance.