pls help with VBA code

[Jagat Pavasia]

Sub ClearAllFilter()
'
' ClearAllFilter Macro
'

'
ActiveSheet.Unprotect
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFiltering:=True
End Sub



I have upon VBA code to clear all filter, I have also created button to do this.
and it is working as it should be.
But, when no filter are in sheet and i pressed button then error display below:

Run-time error '1004':
ShowAllData method of workshrrt class failed


please help me to resolve ths error..

 

[Peter_SSs]

But, when no filter are in sheet and i pressed button then error display belo

See my answer in your other thread - it shows how you can deal with that.

 

[Jagat Pavasia]

did not solved ...pls help

 

[Jagat Pavasia]

when there is not filter in any raw then i click at button and error display and sheet is also un-protect it self,

please help me to solve this issue.

i want that if no any filter then nothing happen in sheet when i click button.

 

[Peter_SSs]

did not solved ...pls help

Can you post the new code that you tried?