Im trying to drill down a list, coloring cells that do not match any of 13
strings stored in an array. I am sure I am not using the array correctly and
in turn am looking for some direction€¦

Appreciatively
Arturo

Sub FalgUnMatched()
Dim X As Integer
Dim ListRef As String

ListRef = Array("$B$4", "$I$28", "$K$3", "$M$3", "$N$3", "$O$3", "$P$3",
"$Q$3", "$E$4", "$E$5", "$E$6", "$E$8", "$E$9")
Range("E4").Select
For X = 4 To 8439
If ActiveCell.Value < UBound(ListRef) Then
ActiveCell.Interior.ColorIndex = 43
End If
ActiveCell.Offset(1, 0).Select
Next X
End Sub