I have a question about controlling auto-filter with VBA and
need some help. I hope someone will oblige.

I know about Debra Dalgleish's excellent and very helpful
pages at http://www.contextures.com -- and specifically
the pages to do with auto-filters he
http://www.contextures.com/xlautofilter03.html#All

But I still am having a problem with Excel XP/2002.

Specifically, when I use the suggested code

Sub ShowAllRecords()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub

if FilterMode was on but all data is already being shown,
I get an error message when I run the macro.

I can think of at least three ways to work around the issue.
But I'd like to know the suggested solution.

What I'm doing right now is (1) checking for