make option button = bold

ff12 · March 25th, 2007, 03:02 PM

I have three option buttons in cells a1:b2, c1:d2 and e1:f2. Here is the problemn when i click on these option buttons it should automatically change the cells selected to bold, italic and regular respectively. Here is what i have so far:

Code:

Public Sub OptionButton1_click() 
    Sheet1.Select 

    ActiveSheet.OLEObjects("OptionButton1").font.bold=True 

End Sub

Can anypne help please because i really don't have a clue in what i'm doing.
Thank You

Shasur · March 25th, 2007, 11:07 PM

You need to boldface the cells right!

You can try the following

If OptionButton1 = True then
     ActiveSheet.Range("a1:b2").font.bold=True
Elseif OptionButton2= True then
     ActiveSheet.Range("c1:d2").font.bold=True
Elseif OptionButton3 = True then
     ActiveSheet.Range("e1:f2").font.bold=True
End if

Cheers
Shasur

http://www.vbadud.blogspot.com