Toggle Auto Filter On and Off with specific parameters

[fishandtril]

I am using the below code to toggle on and off filter showing current month.
The code works with the exception it leaves the sheet without filters. I would like thist to leave AutoFilterMode=True once run.

Sub Toggle_Current_Month()
'
' Macro to filter current month basis BOL Date
'
   With ActiveSheet
        If .AutoFilterMode Then
            .AutoFilterMode = False
        Else
            ActiveSheet.Range("$A$96:$CM$1500").AutoFilter Field:=16, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
        End If
    End With
End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.

See if this does what you want.

Sub Toggle_Current_Month_v2()
   With ActiveSheet
        If .FilterMode Then
            .ShowAllData
        Else
            .Range("$A$96:$CM$1500").AutoFilter Field:=16, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
        End If
    End With
End Sub

 

[fishandtril]

Welcome to the MrExcel board!

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.

See if this does what you want.

Sub Toggle_Current_Month_v2()
   With ActiveSheet
        If .FilterMode Then
            .ShowAllData
        Else
            .Range("$A$96:$CM$1500").AutoFilter Field:=16, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
        End If
    End With
End Sub

Thanks for the Help. Works Perfectly

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.