Tom Ogilvy Wrote:
to answer your specific Question:

Dim w as Worksheet, f as Filter
Set w = Activesheet
For Each f In w.AutoFilter.Filters
If f.On Then

End if
Next

Look at the object browser for the filter object to see properties.

--
Regards,
Tom Ogilvy


Thanks Tom that was what I needed..

--
lcorey
-----------------------------------------------------------------------
lcoreyl's Profile: http://www.excelforum.com/member.php...nfo&userid=204
View this thread: http://www.excelforum.com/showthread.php?threadid=26232