Hi Gurus,
I am new to excel VBA and I am loving it I request your help ladies and gentlemen.
I am trying to change the font color in a cell based on the option button selection. The option button is an Active X control.
for example: If The option button is selected, then the value in a cell should be back in color, if the option button is not selected, then the font color in the cell should be white.
This is an active X option button and I cannot reference it to cells.
This is what I have so far:
Private Sub Work_change (ByVal FontChange As Boolean)
If FontChange.Address = OptionButtion.value Then
If FontChange.Value = True Then Range("A1").Font.Color = vbBlack
If FontChange.Value = False Then Range("A1").Font.Color = vbWhite
End If
End Sub
Please help gurus
I am new to excel VBA and I am loving it I request your help ladies and gentlemen.
I am trying to change the font color in a cell based on the option button selection. The option button is an Active X control.
for example: If The option button is selected, then the value in a cell should be back in color, if the option button is not selected, then the font color in the cell should be white.
This is an active X option button and I cannot reference it to cells.
This is what I have so far:
Private Sub Work_change (ByVal FontChange As Boolean)
If FontChange.Address = OptionButtion.value Then
If FontChange.Value = True Then Range("A1").Font.Color = vbBlack
If FontChange.Value = False Then Range("A1").Font.Color = vbWhite
End If
End Sub
Please help gurus