Apply filter on seleciton change event

[onbeillp111]

I have the following code that applies a filter after double clicking the cell in column A.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim strIncid As String
    
    If ActiveCell.Column = 1 Then
        strIncid = ActiveCell.Value
        Sheets("DeepDive").Select
        Selection.AutoFilter Field:=2, Criteria1:=strIncid
        
    End If
    
End Sub

I am trying to perform the same action but with multiple selections and I am not sure how to get started. I am assuming that it would be in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Any help would be great.

[davesexcel]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address = "$C$1" Then
        MsgBox "Do something here"
    End If

    If Target.Address = "$B$1" Then
        MsgBox "do something else here"
    End If

    If Target.Column = 1 Then
        Target.Offset(, 1) = "Yep"
    End If

End Sub

[davesexcel]

If you wanted to filter by the target.value

    If Target.Column = 1 Then
           Sheets("DeepDive").Columns("B:B").AutoFilter Field:=1, Criteria1:=Target
    End If