View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
sara sara is offline
external usenet poster
 
Posts: 82
Default Option Button code not working

Thank you so much Mike. That worked.

"Mike H" wrote:

Sara,

You need to put it in the change event because it can never become FALSE by
clicking it. Try this variation

Private Sub OptionButton1_Change()
If OptionButton1.Value = True Then
Range("Y27:AA27").Font.ColorIndex = 2
Else
Range("Y27:AA27").Font.ColorIndex = 0
End If
End Sub

Mike

"Sara" wrote:

I am trying to use this code to hide/unhide text and background color. For
some reason it is not working. I want to have two option buttons and if 1 is
not checked the font and background should disappear. It's not happening when
I click on Option Button 2?

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then
Me.Range("Y27:AA27").Font.Color = RGB(0, 0, 0)
Else
Me.Range("Y27:AA27").Font.Color = RGB(255, 255, 255)
End If

End Sub