Autofilter Problem

[gheyman]

I have this code that work if the sheet has no Filters on - then it puts the filters "on" but if there are filters its turning them off

I need them to always be on. Thats what I thought Selection.AutoFilter did. How do I check if is not on - then turn on the filters, but if they are already on then leave them on? Thanks!

Sub GoToStep1()

Sheets("Step 1").Visible = True
Sheets("Step 2").Visible = xlSheetVeryHidden
Sheets("Step 1").Activate
Range("B10").Select
 Selection.AutoFilter

    Sheets("Step 3").Visible = xlSheetVeryHidden
    Sheets("Step 4").Visible = xlSheetVeryHidden
    Sheets("Step 5").Visible = xlSheetVeryHidden
    Sheets("Step 6").Visible = xlSheetVeryHidden
    Sheets("Step 7").Visible = xlSheetVeryHidden
    Sheets("SSJ").Visible = xlSheetVeryHidden
    Sheets("Other Tables").Visible = xlSheetVeryHidden
    
    Sheets("DM Parts").Visible = xlSheetVeryHidden
    Sheets("DM Cost Sources").Visible = xlSheetVeryHidden
    Sheets("DM Cost Source Details").Visible = xlSheetVeryHidden
    Sheets("DM Vendors").Visible = xlSheetVeryHidden
    
    Sheets("Parts").Visible = xlSheetVeryHidden
    Sheets("Cost Sources").Visible = xlSheetVeryHidden
    Sheets("Cost Source Details").Visible = xlSheetVeryHidden
    Sheets("Vendors").Visible = xlSheetVeryHidden

End Sub

 

[Fluff]

How about

If Not ActiveSheet.AutoFilterMode Then Range("B1").AutoFilter

 

[gheyman]

Thanks, Fluff. That worked

 

[Fluff]

You're welcome & thanks for the feedback.