Toggle Button changes state occasionally

[litestream]

I have a toggle button that hides/shows some columns. It started off it's life as showing the columns when the button was depressed and hiding the columns when in the up position.

However, after a period of time the state has reversed with the column showing when the button is in the up state and vice versa.

How can I ensure that the button remains in the up position when the columns are hidden?

Private Sub ToggleButton3_Click()
    With Columns("AE:BG")
        .Select
       .EntireColumn.Hidden = Not .EntireColumn.Hidden
    End With
    Range("A1").Select
End Sub

 

[erik.van.geit]

Hi,

try this

Private Sub ToggleButton3_Click()
    With Columns("AE:BG")
    .EntireColumn.Hidden = Not ToggleButton3
    End With
    Range("A1").Select
End Sub

kind regards,
Erik

 

[litestream]

Thanks for your help