Inputs color coded Blue

I have a model and i want the whole thing to be in black font, except for any cells that are values...the cells that have values should be blue.

how do i do this?

More information is needed.

Cells with anything in them are said to have a value so...
How do you define a value?...
Numbers, Text, Formulas or something else?

What version of Excel?
'--
Jim Cone
Portland, Oregon USA

Hi Jim, thanks for responding.

I would say anything with Text or a Number is a value.

Microsoft XP...is that enough info or do i need a year or number?

I assume you mean Office XP (also known as Office 2002).
Go to the Help menu and click About to see the Office version.

Cell content is pretty much made up of either text or numbers.
So I am confused as to which cells you mean.
You should be able to select the cells you want to change and then specify a blue
font color using the toolbar button that looks like an A with a colored bar underneath it.

Also take a look at the "Special Cells" option found under Edit (menu) | Go To | Special (button)
'--
Jim Cone
Portland, Oregon USA

I'm so sorry, i'm not being very clear.

I have a model with a ton of forumulas and many users.  should they choose to type over one of my formulas, (i want them to be able to), but i want the font to change blue so its very apparent that the formula has been typed over.

OK, we are on the same page now.
It will require some VBA event code to accomplish that.
Is that an acceptable option?
'--
Jim Cone

Well you didn't ask for it, but<g> ...

Goes in a standard/regular module:
'--
Public FormulaCount As Long

Sub ResetInteriorAndFontColors()
Dim rCell As Range
For Each rCell In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    If rCell.Interior.Color = vbBlue Then
       rCell.Interior.ColorIndex = xlColorIndexNone
       rCell.Font.ColorIndex = xlColorIndexAutomatic
    End If
Next
End Sub
'--

Goes in the "ThisWorkbook" module:
'--
Private Sub Workbook_Open()
FormulaCount = ThisWorkbook.Worksheets("Sheet1").Cells.SpecialCells(xlCellTypeFormulas).Count
End Sub
'--

Goes in the worksheet module of the sheet with the formulas:
'--
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo BadChange
Application.EnableEvents = False
If FormulaCount > Me.Cells.SpecialCells(xlCellTypeFormulas).Count Then
   Target.Interior.Color = vbBlue
   Target.Font.Color = vbYellow
End If
FormulaCount = Me.Cells.SpecialCells(xlCellTypeFormulas).Count
BadChange:
Application.EnableEvents = True
End Sub
'--

Note:  Change all references to "Sheet1" to the actual sheet name.
--
Jim Cone

wow...ok, i know a little about modules so i might be able to put them where they belong, but do you have to run them?

ok, i'm going to try this but its a little "above my head".  no chance of using conditional formatting?...like asking if its a formula then black font...if not a formula blue font?

 
The following is from a post by Jim Rech from seven years ago.
It worked for me.

Begin Quote...
"The other way that comes to mind is the old Excel 4 macro defined name technique.
You create a name like IsFormula with the definition

=LEFT(GET.CELL(6,A1),1)="="

where A1 is the active cell when you create the name.  
Then your condition is just =IsFormula.
I'm not saying this is better than a UDF though.  Just an alternative."
...End Quote

'--
Jim Cone