i may have misunderstood, maybe that you want the text can be changed even if
the sheet is protected

Set shp = ActiveSheet.Shapes.AddTextBox(msoTextOrientationHo rizontal, 100, 100,
200, 50) ' add shape
With shp
.TextFrame2.TextRange.Characters.Font.Fill.ForeCol or.RGB = RGB(255, 0, 0)
.ControlFormat.LockedText = False

isabelle

Le 2014-07-22 23:13, isabelle a écrit :
hi Chris,

if you do not want the text to be modified why not use a Label.

Set shp = ActiveSheet.Shapes.AddLabel(msoTextOrientationHori zontal, 100, 100,
200, 50)

for the font color try with:

With shp
.TextFrame2.TextRange.Characters.Font.Fill.ForeCol or.RGB = RGB(255, 0, 0)

isabelle