VBA to Hide Columns quit working

[Kevin_W]

I have a file that has several toggle buttons to hide various columns. Its been working great. Within the past few days they just quit working. No error message and nothing changed in the file. I have other VBA in the file that does some other functions and they are working fine. Just the Hide/Unhide columns not working.

Any ideas as to what is going on here?

Here is the code I'm using:

Private Sub ToggleButton1_Click() 'Hide Segment 1'
Dim xAddress As String
xAddress = "S:U"
If ToggleButton1.Value Then
Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
Application.ActiveSheet.Columns(xAddress).Hidden = False
End If
End Sub

 

[mikerickson]

Try

Private Sub ToggleButton1_Click()
    ActiveSheet.Range("S:U").EntireColumn.Hidden = ToggleButton1.Value
End Sub

Is there any posibility that you changed the name of the toggle button. And/or made a duplicate toggle button.
Have you set a break-point to see if the button is calling the sub?

 

[Kevin_W]

Same thing happens with your code. I did start a brand new file and used your code and my original code. Both do not work. I do see that I had a Office 365 update last week. Maybe something in that is the issue?

Weird part is that when I click on the button a second smaller replica of the button appears above to the left of my button.