Thread: Toggle Buttons
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Bill Bill is offline
external usenet poster
 
Posts: 390
Default Toggle Buttons

I have a form with 10 toggle buttons. Each toggle button uses the same code.
How can I change the code so that is uses one piece of code instead on ten
sets of code.

Private Sub ToggleButton11_Click()
If ToggleButton11.Value = True Then
ToggleButton11.Caption = " "
ToggleButton11.BackColor = RGB(0, 255, 0)
Else
ToggleButton11.Caption = " "
ToggleButton11.BackColor = RGB(255, 0, 0)
End If
End Sub

Thanks Bill