Question: I would like to have a pop up message appear every time a cell contains specific text. Everytime the word "Red Level" is in any of this cells (I22,I23,I34,I35,I36), I would like a MsgBox to appear. 
I am using a data validation list in all those cells mentioned above, to make sure the word "Red Level" is always the same.

I wrote some code and it worked but only when I had 1 cell in my range. When I tried to add the other cell numbers to my code, it will still only work for the first cell and not for the rest. 

Below is the code that worked for one cell:

```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    If Worksheets("A12").Range("I22").Value = "Red Level" Then
         MsgBox ("Please call maintenance immediately to refill reservoir")
    End If 
End Sub

```

I thought I could just add the rest of the cells to the range on my code, but that did not work. 
This is what I did but did not work (The MsgBox will only appear when the word "Red Level is on I22 and not in the other cells):

```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Sheets("A12").Range("I22,I23,I34,I35,I36").Value = "Red Level" Then
         MsgBox ("Please call maintenance immediately to refill reservoir")
    End If
End Sub

```

Answer: 
For this, you can do it two ways (at least). If you want to stay with `If`, you need lots of `Or`:

```
If Sheets("A12").Range("I22").Value = "Red Level" or Sheets("A12").Range("I23").Value = "Red Level" or ... Then

```

But as you can see, it'll be a really long line, which isn't the most straightforward to read. Here's an alternative:

```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False

Dim addr() As Variant
Dim hasPrompted As Boolean

hasPrompted = False

addr = Array("$I$22", "$I$23", "$I$34", "$I$35", "$I$36")
Dim i As Long
For i = LBound(addr) To UBound(addr)
    If Range(addr(i)).Value = "Red Level" And Not hasPrompted Then
        MsgBox ("Please call maintenance immediately to refill reservoir")
        hasPrompted = True
    End If
Next i
Application.EnableEvents = True
End Sub

```

Note the second one will only fire one time, even if all cells have "Red Level", or just one cell has it. If you want to alert the user which cells have it, you can add that in, just let me know.
The DATA tab has a wizard for data validation,
The first tab allows you to define a condition.
The third tab of this wizard is for a message popup.

You don't need to write code for this, S it is already built in to excel.

<http://www.excel-easy.com/basics/data-validation.html>