With Worksheets("Sheet17")
.Unprotect "led52not"
.Shapes("Text Box 2").TextFrame.Characters.Text = "P"
.Shapes("Text Box 2").TextFrame.Characters.Font.Name = "Wingdings 2"
End With
--
Can I go back to sleep now? <g
'--
Jim Cone
Portland, Oregon USA
( Excel add-in... http://tinyurl.com/SpecialSort )




"Doug Robbins - Word MVP"
wrote in message ...
That achieves nothing, but if you must do, you should not send it to the
wrong newsgroup as well.
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com




"golf4" wrote in message
...
Just thought I'd try to bump my query once. Thanks