Gord:

The code worked for me, but when I emailed the spreadsheet out and the
person who I sent it to made changes to the spreadsheet, it didn't capture
their changes in the "other color". Is there something else I need to do to
the formula to make it work when I am sending it out?

"Gord Dibben" wrote:

Not "as you type" but you can use event code to change the font color when you
hit the ENTER key

This code operates on A1:C100 cell range.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:C100")) Is Nothing Then
With Target
If .Value < "" Then
Target.Font.ColorIndex = 3
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub

Right-click on sheet tab and "View Code".

Copy/Paste code into that sheet module.


Gord Dibben MS Excel MVP

On Mon, 19 Jun 2006 11:49:02 -0700, GMed wrote:

Is there anyway to set my font color to a specific color as I type? I want
to make changes to cells and see what cells have been changed by the color of
the font.
I don't like the way the "track changes highlighting" prints out. Thanks!