Yes, just change Interior to Font

'----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'----------------------------------------------------------------
Static prevCell As Range
Static prevCellCI As Long
On Error GoTo ws_exit
Application.EnableEvents = False
If Not prevCell Is Nothing Then
prevCell.Font.ColorIndex = prevCellCI
End If
Set prevCell = Target
prevCellCI = Target.Font.ColorIndex
Target.Font.ColorIndex = 34

ws_exit:
Application.EnableEvents = True
End Sub


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"vla" wrote in message
...

Thanks for this!

Any way I can change the color of the font and not the cell?

Vla ;)


--
vla
------------------------------------------------------------------------
vla's Profile:
http://www.excelforum.com/member.php...o&userid=31711
View this thread: http://www.excelforum.com/showthread...hreadid=514133