Jim,
Here's a shot
Dim cell As Range
Dim sFormula As String
For Each cell In Selection
If cell.HasFormula Then
sFormula =
"SUMPRODUCT(--(ISNUMBER(SEARCH({""+"",""-"",""~*"",""/"",""^""},""" &
cell.Formula & """))))"
If Evaluate(sFormula) 0 Then
cell.Interior.ColorIndex = 5
Else
cell.Interior.ColorIndex = 10
End If
Else
If IsNumeric(cell.Value) Then
cell.Interior.ColorIndex = 3
End If
End If
Next cell
--
HTH
RP
(remove nothere from the email address if mailing direct)
"James C" wrote in
message ...
OBJECTIVE: I select a range of cells. I want a macro I can run that
changes the color of the text based on 3 criteria:
(1) if a numeric value w/o an = sign or any mathematical operators,
then RED
(2) if a forumla w/ an = sign, but no other operators, then GREEN
(3) if a formula w/ an = sign and operators, then BLUE
Can anyone post this?
Thanks.
- Jim
--
James C
------------------------------------------------------------------------
James C's Profile:
http://www.excelforum.com/member.php...o&userid=12114
View this thread: http://www.excelforum.com/showthread...hreadid=395347