title: VBA Macro Checking range for multiple Criteria
body: <p>I wrote a macro to check a selection for a value, and if it fits that value, to replace it with something else. Ok this is pretty easy when it is just one value. When I try adding multiple values, I keep running into different errors. hopefully one of you can point out where I'm missing the point :)</p>
  
  <pre><code> Sub PTranslate()
   Dim cell As Range
   On Error Resume Next
   For Each cell In Selection
   If cell = "DZC" Or "0654548" Then
   cell.Value = "Douglas C"
        ElseIf cell = "RLP" Or "0623344" Then
   cell.Value = "Ryan P"
   End If
   Next
  
  
   End Sub
  </code></pre>