Проверка установлен ли фильтр

[27102014]

Всем доброго времени суток!
Суть проблемы - на листе установлен фильтр.
Требуется проверить, установлен ли по фильтру критерий, если да, то снять все критерии, фильтр удалять не нужно.
Обычно ставлю такую конструкции

On Error GoTo M
Sheets("Лист1").Select
ActiveSheet.ShowAllData
M:

сейчас нужно избавиться от On Error GoTo M

Как вариант удалить фильтр и поставить его заново, но может есть вариант проще

[27102014]

сделал так

If Worksheets("Лист1").FilterMode Then Worksheets("Лист1").ShowAllData