Michael,

The version below can be switched on by putting RB into cell A1, and turned off by removing the RB
from cell A1. That might be a little more useful.

HTH,
Bernie
MS Excel MVP


Private Sub Worksheet_Change(ByVal Target As Range)
Static UseRB As Boolean
If Target.Cells.Count 1 Then Exit Sub
If Target.Address = "$A$1" Then
If Target.Value = "RB" Then
UseRB = True
Else
UseRB = False
End If
Exit Sub
End If
If UseRB And Application.IsText(Target.Value) Then
Target.Font.ColorIndex = 3
Target.Font.Bold = True
End If
End Sub


"Michael Lortz" wrote in message
...
I have an existing workbook with cell text entries in regular black font. I
want to make a number of additional entries in various cells in this
workbook, and I want all my text entries to be a different font format (bold,
red). Is there a way to do this automatically without highlighting each
entry I make and manually changing the cell format? Thanks.