VBA unexpected error

[Mr2017]

Hi

I've got some code which clears a filter if something has been filtered in the sheet.

However, it shows an error if the filter has NOT been applied and all data is already showing!

Does anyone know why this may be?

Sub ClearData



Sheet12.Activate
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
Range("d7:d10000").Select
Selection.ClearContents


End Sub

The error I get is "ShowAllData method of Worksheet class failed"

 

[ChrisFoster]

Try;

On Error Resume Next
Activesheet.ShowAllData
On Error GoTo 0

 

[jkpieterse]

Instead of AutoFilterMode use FilterMode

 

[RoryA]

AutoFilterMode just tells you if there is an autofilter available on the sheet, not whether it's actually filtering anything. You can use:

If ActiveSheet.AutoFilterMode Then If Activesheet.Filtermode then ActiveSheet.ShowAllData

or use the On Error Resume Next approach.

 

[Mr2017]

Great!!!

Thank you all for your suggestions!

I have used them to fix the problem!

Thanks again!!