ActiveSheet.Shapes("Button 1").Select
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


for VBA solution.

Mangesh



"Mangesh Yadav" wrote in message
...
You can simply select the text of the caption and use normal formatting

Mangesh



"Norman Jones" wrote in message
...
Hi Rob,

You originally said:

Is there a way to format the text of an OptionButton (from "Forms")
in
a
macro?

I am not aware of a way to enbolden the caption of an option button from
the
Forms toolbar.

If, in fact, you refer to an option button from the Control Toolbox,
try:

ActiveSheet.OLEObjects("OptionButton1"). _
Object.Font.Bold = True

---
Regards,
Norman



"Linking to specific cells in pivot table"
crosoft.com wrote in
message ...
Hi Norman -- I'm specifically looking to "bold" the text -- does your
codes
show this?

thanks,

Rob

"Norman Jones" wrote:

Hi Rob,

Sorry, I missed the reference to 'text'.

Try:

ActiveSheet.Shapes("Option Button 4").Select
Selection.Characters.Text = "CHOICE 2"


---
Regards,
Norman



"Linking to specific cells in pivot table"
crosoft.com wrote
in
message ...
Hi,

Is there a way to format the text of an OptionButton (from "Forms")
in
a
macro? When I try to record a macro to do this, the macro doesn't
seem
to
recognize what I'm doing (I'm right clicking on the radio button,
selecting
"Properties", then selecting Font, then changing to "Bold"). Any
help
is
appreciated!

Thanks,

Rob