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

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

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

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