I have the following code to Clear Data form all Sheets named "CSA"
This code works when the sheets when filters are not active. what I want to add to this code is to Clear All Filters in columns A - Column P before it runs the code to .Clearcontents
Sub Clear_All_Values() Dim ws As Worksheet, sh As Worksheet Set ws = ActiveSheet If MsgBox("ARE YOU SURE YOU WANT TO CLEAR ALL AGENTS RESULTS?", vbYesNo, "CONFRIM") = vbYes Then Worksheets("CSA1").Select For Each sh In Worksheets If Left(sh.Name, 3) = "CSA" Then sh.Select Replace:=False End If Next Worksheets("CSA1").Activate Range("A3:A122,a124:a153").Select Selection.ClearContents Range("A1").Select ws.Select End If End Sub