Need Automated Laziness

[medic704]

Ok, so I've got 14 toggle buttons on a worksheet that ultimately could grow to be a hundred of them. I want the buttons to have no caption when idle and I want them to say "OFF" when depressed. I know how to write a sub for each button to do so.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "OFF" Then
ToggleButton1.Caption = ""
Else
ToggleButton1.Caption = "OFF"
End If
End Sub

However, considering the end of the world is supposed to be tomorrow and I don't have that much time, I would like to know if there is a sub that I could write to control all of the buttons at once?

 

[bertie]

Hi and welcome to the forum.
Here you go:

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
   ResetToggleButtons
[color=darkblue]End[/color] [color=darkblue]Sub[/color]




[color=darkblue]Private[/color] [color=darkblue]Sub[/color] ResetToggleButtons()
   [color=darkblue]Dim[/color] ctrl [color=darkblue]As[/color] Control
   
   [color=darkblue]For[/color] [color=darkblue]Each[/color] ctrl [color=darkblue]In[/color] Me.Controls
      [color=darkblue]If[/color] TypeName(ctrl) = "ToggleButton" [color=darkblue]Then[/color]
         [color=darkblue]If[/color] ctrl.Caption = "OFF" [color=darkblue]Then[/color]
            ctrl.Caption = ""
         [color=darkblue]Else[/color]
            ctrl.Caption = "OFF"
         [color=darkblue]End[/color] [color=darkblue]If[/color]
      [color=darkblue]End[/color] [color=darkblue]If[/color]
   [color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Have a nice End of the World.
Bertie