Use Toggle Button to filter

Here is the recorded macro for filtering column A for value "D"

Please Login or Register  to view this content.

Thanks stnkynts but how do i unfilter everything now

SOLVED:

Private Sub ToggleButton1_Click()
If ActiveSheet.AutoFilterMode = True Then
'autofilter is on...
ActiveSheet.AutoFilterMode = False
Else
'autofilter is not on...
ActiveSheet.Range("$B$1:$B$500").AutoFilter Field:=1, Criteria1:="D"
End If
End Sub

Glad you were able to figure it out on your own. Please mark the thread as solved.

I want to control the autofilter to hapen on sheet 1 but the toggle buton is placed in sheet 3 how do i change the code then?
Private Sub ToggleButton1_Click()
'
' Macro1 Macro
'

'
Columns("A:A").Select
Selection.AutoFilter
Sheet3.Range("$A$2:$A$102").AutoFilter Field:=1, Criteria1:="ABC"

End Sub