VBA AutoFilter color is not found bypass Debug

[osmosisgg]

Hello all. I have an autofilter function that filters by the color red as the interior color. If there is no color red to filter, I get the debug error. Is it possible to go to next and resume the macro?

 

[Comfy]

Hello all. I have an autofilter function that filters by the color red as the interior color. If there is no color red to filter, I get the debug error. Is it possible to go to next and resume the macro?

Please post your code

 

[osmosisgg]

Sub FilterRed()
'
' Filters delinquent reds
Application.ScreenUpdating = False
Windows("Book1").Activate
Sheets("AntiTerrorism").Select
ActiveSheet.ListObjects("AT").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("CombatTraffic").Select
ActiveSheet.ListObjects("CB").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("HIPAA").Select
ActiveSheet.ListObjects("HIP").Range.AutoFilter Field:=3, Criteria1:=RGB( _
255, 0, 0), Operator:=xlFilterCellColor
Sheets("EqualO").Select
ActiveSheet.ListObjects("EO").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("SubAbuse").Select
ActiveSheet.ListObjects("SA").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("ThreatAwareness").Select
ActiveSheet.ListObjects("TA").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("SuicidePrev").Select
ActiveSheet.ListObjects("SP").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("IA").Select
ActiveSheet.ListObjects("IA").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("OpSec").Select
ActiveSheet.ListObjects("OS").Range.AutoFilter Field:=3, Criteria1:=RGB(255 _
, 0, 0), Operator:=xlFilterCellColor
Sheets("CareProviderSupp").Select
ActiveSheet.ListObjects("CPS").Range.AutoFilter Field:=3, Criteria1:=RGB( _
255, 0, 0), Operator:=xlFilterCellColor
Sheets("AntiTerrorism").Select
Windows("MASTER Civilian Training Macro.xlsm").Activate
Call SaveCiv
End Sub

 

[Andrew Poulsom]

This:

On Error Resume Next

at the beginning of your procedure should do the job.

 

[osmosisgg]

This:

On Error Resume Next

at the beginning of your procedure should do the job.

Thank you very much! It worked! Hats off to you