Help with Macro, need it to skip a step if that step isn't needed

[CDNcameron]

So the macro is designed to filter a list based on what the user enters, as part of this macro it also resets the sheet to show all data so multiple filters don't mess each other up. essentially I'd like it to skip the "showalldata" portion if the sheet contains no filters. as it currently returns an error, and id rather set it up to skip it if possible then attach another macro and instructing the user to use it if the first macro produces the error. Thoughts???? thanks in advance for any help.

the macro is as follows: the and section causing the error bolded;

Sub CopypasteFilterroute()
'
' CopypasteFilter Macro
'

'
Dim filter_value As String

filter_value = Range("C3").Value
Range("C3").Select
Selection.Copy
Sheets("Sales Data").Select
Range("Table1[[#Headers],[Zone Code]:[Channel]]").Select
ActiveSheet.ShowAllData
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
filter_value

[DGagnon]

try replacing that line with

ActiveSheet.AutoFilterMode = False

[CDNcameron]

That works in the case of uses when the filters don't need to be reset. But in the cases where it needs to reset the data it doesn't reset it before applying the new filters, which is why the line to showalldata was added.

Thanks for the help though,

James

[DGagnon]

you could just put in an error catch that would skip the line if it caused an error

On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

[CDNcameron]

Worked like a charm, Thanks very much, adding to my list of cool macro commands.

Thanks Again,
James H. Cameron

[DGagnon]

no problem, glad i could help.

[Pichingualas]

Personally, I wouldn't use On Error Resume next, because if you have another part of your code which may need error checking, the On Error GoTo 0 statement wouldn't allow you to do it. Instead I'd do the following:

Sub CopypasteFilterroute()
'
' CopypasteFilter Macro
'

'
Dim filter_value As String

filter_value = Range("C3").Value
Range("C3").Select
Selection.Copy
Sheets("Sales Data").Select
If Not ActiveSheet.AutoFilter Is Nothing Then
    Range("Table1[[#Headers],[Zone Code]:[Channel]]").Select
    ActiveSheet.ShowAllData
End If
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
filter_value