Search Two Ranges To See If The Same String Exists

[p45cal]

make sure the If statement is all on one line:

For Each oCheckCell In Selection
  For Each oCheckCell2 In oLooks
    If oCheckCell2 = oCheckCell.Value Then oCheckCell.Offset(0, 1).Value = oCheckCell.Value Else oCheckCell.Offset(0, 1).Value = "#N/A"
  Next oCheckCell2
Next oCheckCell