Toggle Button Color Change When Depressed

[Sphinx404]

I have about 30 buttons that I am trying to add a line of code that will change the color of the button when pressed and depressed.

Any ideas?

Private Sub ToggleButtonAHAJ_Click()
With Columns("AH:AJ")
  If .EntireColumn.Hidden = True Then
     .EntireColumn.Hidden = False
  Else
      .EntireColumn.Hidden = True
  End If
End With
End Sub

Thank you Excel Experts

 

[Fluff]

Something like

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then ToggleButton1.BackColor = vbGreen
End Sub

 

[dmt32]

Hi,
try

Private Sub ToggleButtonAHAJ_Click()
    With Me.ToggleButtonAHAJ
        Me.Columns("AH:AJ").EntireColumn.Hidden = .Value
        .BackColor = IIf(.Value, vbRed, vbButtonFace)
     End With
End Sub

Change colours as required.

Dave

 

[My Aswer Is This]

Try this:

Sub Hide_Me()
Columns("AH:AJ").Hidden = Not Columns("AH:AJ").Hidden
End Sub

I have about 30 buttons that I am trying to add a line of code that will change the color of the button when pressed and depressed.

Any ideas?

Private Sub ToggleButtonAHAJ_Click()
With Columns("AH:AJ")
  If .EntireColumn.Hidden = True Then
     .EntireColumn.Hidden = False
  Else
      .EntireColumn.Hidden = True
  End If
End With
End Sub

Thank you Excel Experts

 

[Sphinx404]

Hi,
try

Private Sub ToggleButtonAHAJ_Click()
    With Me.ToggleButtonAHAJ
        Me.Columns("AH:AJ").EntireColumn.Hidden = .Value
        .BackColor = IIf(.Value, vbRed, vbButtonFace)
     End With
End Sub

Change colours as required.

Dave

Perfect! All of you, thank you so much!