If you are looking for numbers, then check out the Choose formula. You
would have to modify the first argument to an expression to return a whole
number in the range 1 to 29 for the conditions you want to mark

Range("F1:F200").Select
Range("F1").Activate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=CHOOSE(F1,TRUE,,,,,,TRUE,,,,,,TRUE,,,,,TRUE) "
Selection.FormatConditions(1).Interior.ColorIndex = 36

There may be alternatives, but more specific details would be needed.

--
Regards,
Tom Ogilvy


"Computer Lady" wrote in message
. ..
I am currently working with a list of test numbers that are stored in
column
A. I need the rows to be highlighted red if there is a particular test
number in column A. I couple of days ago, there was a forumala that came
across that works great for 1 value. However, I need to be able to
specify
around 10 test numbers. I have tried declaring variables with Dim,
modifying the formula below, etc. I can't seem to get anything to work.
Anyone have any ideas?

Cells.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$H1=""JOHN SMITH"""
Selection.FormatConditions(1).Interior.ColorIndex = 3