auto filter event code based on cell two cell value

[njan1982]

i am using an auto filter sheet event code to filter column c based on cell value in "N1"

Private Sub Worksheet_Change(ByVal Target As Range) 
    Const WS_RANGE As String = "N1" '<== change to suit
     
    On Error Goto ws_exit 
    Application.EnableEvents = False 
     
    If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then 
        Me.Range("A1:C1").AutoFilter field:=3, Criteria1:=Target.Value 
    End If 
     
ws_exit: 
    Application.EnableEvents = True 
End Sub

i need to filter column D also using the cell value in "O1"
please help
this search now supports regular expression i need that ability remain