search and delete multiple item separated by a comma

[BORUCH]

HI

I have this code below

Sub DeleteRows()
    Dim c As Range
    Dim SrchRng As Range
    Dim SrchStr As String
Dim SrchStr2 As String
    SrchStr2 = InputBox("Please Enter A column to search")
    Set SrchRng = ActiveSheet.Range(SrchStr2 & "1", ActiveSheet.Range(SrchStr2 & "104875").End(xlUp))
    SrchStr = InputBox("Please Enter A Search String")
    Do
        Set c = SrchRng.Find(SrchStr, LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
 
End Sub

I would like to add to the second input box that you should be able To put in multiple items separated by a comma, and it should perform this macro if it finds any of theses values

THANKS

 

[footoo]

Sub DeleteRows()
Dim c As Range
Dim SrchRng As Range
Dim SrchStr As String
Dim SrchStr2 As String
Dim ray As Variant, i%
SrchStr2 = InputBox("Please Enter A column to search")
Set SrchRng = ActiveSheet.Range(SrchStr2 & "1", ActiveSheet.Range(SrchStr2 & "104875").End(xlUp))
SrchStr = Application.InputBox( _
    "List the values in this format: text,text,text,...", Type:=2)
ray = Split(SrchStr, ",")
For i = 0 To UBound(ray)
    Do
        Set c = SrchRng.Find(What:=ray(i), After:=SrchRng(1), LookIn:=xlValues, LookAt:=xlWhole, _
            SearchDirection:=xlPrevious, MatchCase:=False)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
Next
End Sub

You might want to add error handlers for the input boxes to cover when Cancel is pressed or an invalid value is input.