Help with multiple criteria

[Dazzawm]

I am learning code so please look at the code below. It looks for "Front Link Rod" then deletes the row. What if I want to look for other things as well like "Rear Link Rod", do I put a comma like in red, Well I know thats not right because it doesnt work! How do I write it please?

Sub test()
Dim a As Integer
Dim b As Integer
Range("S1").Select
a = ActiveCell.CurrentRegion.Rows.Count
For b = 1 To a
If Selection.Value = "Front Link Rod, Rear Link Rod" Then
Selection.EntireRow.Delete
Else
Selection.Offset(1, 0).Select
End If
Next b
End Sub

 

[VoG]

You can use either. What I am trying to get across is the preference to avoid selecting. Your code could be modified to

a = Range("S1").CurrentRegion.Rows.Count

 

[Dazzawm]

Ok, thanks for all your advice.

 

[VoG]

You are welcome. FWIW this is how to do what you wantedv by looping down

Sub test3()
Dim a As Integer
Dim b As Integer
Dim r As Range
a = Range("S1").CurrentRegion.Rows.Count
For b = 1 To a
    If Range("s" & b).Value = "Front Link Rod" Or Range("s" & b).Value = "Rear Link Rod" Then
        If r Is Nothing Then
            Set r = Range("S" & i)
        Else
            Set r = Union(r, Range("S" & i))
        End If
    End If
Next b
r.EntireRow.Delete
End Sub