Worksheet_change simple question

[DUI]

How do I get this to work?
I only want it to work on cell H13 & K13

Private Sub Worksheet_Change(ByVal Target As Range)


Range("A13:A400").AutoFilter Field:=1, Criteria1:="1"

End Sub

Thanks Guys.

 

[Andrew Poulsom]

One way:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$13" Or Target.Address = "$K$13" Then
        Range("A13:A400").AutoFilter Field:=1, Criteria1:="1"
    End If
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H13,K13")) Is Nothing Then Exit Sub
Range("A13:A400").AutoFilter Field:=1, Criteria1:="1"
End Sub

 

[DUI]

Thanks... Does the Job.