Change Event

[EdE]

Sorry if this seems simple but I do not deal with these much.
I am wanting a simple macro (unfilter then filter) to run when the value of cell B2 is changed. This is changed manually by user via a drop down menu.
I can't seem to get the syntax even right for the filter. I need to un-filter all, then filter column A to show all values except 0. Any ideas?
Thanks!!

 

[Marcelo Branco]

Hi,

Maybe this

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        With Me
            .AutoFilterMode = False
            .Range("A:A").AutoFilter Field:=1, Criteria1:="<>0"
        End With
    End If
End Sub

HTH

M.