Option Button code not working
 

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

Option Button code not working
 

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

Option Button code not working
 

That vent won't kick in if the second is clicked, so you need similar code
in its click event.

--
__________________________________
HTH

Bob

"Sara" wrote in message
...
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

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