Autofilter Macro

[pagrender]

Hello,

I have a macro that shows all the data hidden by an autofilter. This macro works fine when there is at least one item that has been filter. Whenever I try to run this macro without an item being filtered, I get an error. Is there a way to set up an IF statement to say if there is a filter present, run the macro; else ignore the macro? I've attached the macro below.

Thanks!

Sheets("Summary").Select
ActiveSheet.Unprotect
'
ActiveSheet.ShowAllData
Range("A3").Select

Sheets("Summary").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True

 

[dave3009]

Given that's the only issue you face perhaps just including the line

On Error Resume Next
Sheets("Summary").Unprotect
ActiveSheet.ShowAllData
Sheets("Summary").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True

And you don't need to select everything

HTH


Dave

 

[pagrender]

That worked! Thanks for such a great solution!