Button Problems

[young engineer]

Hi all
I have inserted a button to hide/unhide certain columns, which works perfectly. I have tried to insert another button to also hide/unhide other columns, however the it does not work, but the changes are now made in my original button. Here is the original button code followed by the code for my new button. Could someone look through it and let me know whats the problem.

Private Sub ToggleButton1_Click()
Dim bool As Boolean
bool = ToggleButton1.Value
If bool Then
ToggleButton1.Caption = "Refinery - Show Data"
Else
ToggleButton1.Caption = "Refinery - Hide Data"
End If
Columns("f:g").EntireColumn.Hidden = bool
Columns("j:l").EntireColumn.Hidden = bool
Columns("n").EntireColumn.Hidden = bool
Columns("r:t").EntireColumn.Hidden = bool
End Sub


Private Sub ToggleButton2_Click()
Dim bool As Boolean
bool = ToggleButton1.Value
If bool Then
ToggleButton1.Caption = "TEG - Show Data"
Else
ToggleButton1.Caption = "TEG - Hide Data"
End If
Columns("s:t").EntireColumn.Hidden = bool
Columns("w:y").EntireColumn.Hidden = bool
Columns("aa:ac").EntireColumn.Hidden = bool
Columns("ae:ag").EntireColumn.Hidden = bool
Columns("ai:ak").EntireColumn.Hidden = bool
End Sub

 

[Makrini]

How about...

Private Sub ToggleButton2_Click()
Dim bool As Boolean
bool = ToggleButton2.Value
If bool Then
ToggleButton2.Caption = "TEG - Show Data"
Else
ToggleButton2.Caption = "TEG - Hide Data"

 

[Datsmart]

Both codes work with "ToggleButton1."
Shouldn't you use "ToggleButton2." in the second one?

 

[haissk]

In the second toggle button code u are referring to Togglebutton1.value
it should be Togglebutton2.value
thats it

SSK