Clear contents for cells with specific values

[thechad]

Hi all...I have repurposed this for my needs and it works awesome. However, I am wondering how to clear contents for multiple values instead of just one? I have included my current code. As you can see I have "Black" that defines the rows that I would like cleared, but would like to include "Blue" & "Red" or others as I need them. They won't change very often so I would just change the VBA.

Thanks in advance!

    Dim myLastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    
'   Find last row
    myLastRow = Cells(Rows.Count, "K").End(xlUp).Row
    
'   Loop through range
    For i = 5 To myLastRow
        If Cells(i, "K").Value = "Black" Then Range(Cells(i, "A"), Cells(i, "W")).ClearContents
    Next i

 

[rlv01]

One way.

    '   Loop through range
    For i = 5 To myLastRow
        Select Case Cells(i, "K").Value
            Case "Black", "Red", "Blue"
                Range(Cells(i, "A"), Cells(i, "W")).ClearContents
        End Select
    Next i