What code could I use to show all rows in the data filtering, IF data
filtering is on. I tried,
ActiveSheet.ShowAllData

but then it bombs if nothing is already filtered.

Several ways to check for filter, but to take yours to the next level
On Error Resume Next
ActiveSheet.ShowAllData
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"(E-Mail Removed)" wrote:

> What code could I use to show all rows in the data filtering, IF data
> filtering is on. I tried,
> ActiveSheet.ShowAllData
>
> but then it bombs if nothing is already filtered.
>
>

With activesheet
If .FilterMode Then
.ShowAllData
End If
end with

or just ignore the error:

on error resume next
ActiveSheet.ShowAllData
on error goto 0



"(E-Mail Removed)" wrote:
>
> What code could I use to show all rows in the data filtering, IF data
> filtering is on. I tried,
> ActiveSheet.ShowAllData
>
> but then it bombs if nothing is already filtered.

--

Dave Peterson