If the cell is a value turn red if its a formula turn the
cell blue.

Thanks in advance for your help.

On Error Resume Next
cells.SpecialCells(xlformulas).Interior.ColorIndex = 8 ' or 5 for dark
blue
cells.SpecialCells(xlConstants).Interior.ColorInde x = 3
On Error goto 0
--
Regards,
Tom Ogilvy



"Ali" wrote in message
...
If the cell is a value turn red if its a formula turn the
cell blue.

Thanks in advance for your help.

Thank Tom!

-----Original Message-----
On Error Resume Next
cells.SpecialCells(xlformulas).Interior.ColorInde x =
8 ' or 5 for dark
blue
cells.SpecialCells(xlConstants).Interior.ColorInd ex = 3
On Error goto 0
--
Regards,
Tom Ogilvy



"Ali" wrote in
message
...
If the cell is a value turn red if its a formula turn
the
cell blue.

Thanks in advance for your help.


.