Show All Data Error

[pauleapo]

i have a very simple macro that takes any auto filters off to show all data code as below.

ActiveSheet.ShowAllData
End Sub

This works as it should except when there is no filters on i get a runtime error, what code can i add to this to make it just end sub if there are no filters on, therefore not bringing up the error.


Cheers

 

[patrickmuldoon99]

Hi Pauleapo

Try,

on error resume next
activesheet.showalldata
end sub

HTH

Patrick

 

[pauleapo]

Patrick,

Thanks alot Simple but very effective