Mismatch Error

[Temo98]

I am attempting to write a piece of code that does different actions dependent on the value of a cell. However, when I enter multiple criteria in the "if" statement I receive a mismatch error.

What do I need to do to get the below code to run. Thank you.

Sub test()
xRow = 2

While Not IsEmpty(Cells(xRow, 1))
    Range("B" & xRow).Value = Application.WorksheetFunction.trim(Range("A" & xRow))
        If Range("B" & xRow).Value = "Digital Display" Or "Digital Search" Then
            Range("C" & xRow).Value = "wow"
        End If
  
    xRow = xRow + 1
Wend
End Sub

 

[mikerickson]

Re: Mistach Error

Sub test()
xRow = 2

While Not IsEmpty(Cells(xRow, 1))
    Range("B" & xRow).Value = Application.WorksheetFunction.trim(Range("A" & xRow))
        Select Case Range("B" & xRow).Value
              Case "Digital Display", "Digital Search"
                  Range("C" & xRow).Value = "wow"
        End Select
    xRow = xRow + 1
Wend
End Sub

or

If Range("B" & xRow).Value = "Digital Display" Or Range("B" & xRow).Value = "Digital Search" Then
    Range("C" & xRow).Value = "wow"
End If