Call Private Sub ToggleButton1_Click()

[Mindlesh]

When I call ToggleButton1_Click, why are the columns not toggled in the way that they are when I click the button?

Private Sub ToggleButton1_Click()
    With ActiveSheet.ListObjects("Table4")
        .ListColumns("Ti").DataBodyRange.EntireColumn.Hidden = Not (ToggleButton1.Value)
        .ListColumns("Ne").DataBodyRange.EntireColumn.Hidden = Not (ToggleButton1.Value)
    End With
End Sub

Private Sub CommandButton1_Click()
    Application.Run "Sheet8.ToggleButton1_Click"
End Sub

 

[Mindlesh]

I did that, but get the same error. Here is the workbook.

 

[Mindlesh]

I solved the error by adding data to the table (doh!), but still cannot execute the toggle button macro via the command button.

 

[mole999]

Is the sub accessible from the page you are calling it from, has the toggle name changed (properties)

 

[Mindlesh]

What seems to be happening in the workbook (after I have added data to the table):

1. Clicking the command button hides the columns; the toggle button macro is executed, but it only works once.
2. When the columns are hidden (what would be the default state), clicking the command button fails to unhide them.

I suppose what I need is for the command button macro to detect that the toggle button has not been clicked, and only then click it to unhide the columns.

 

[mole999]

I'm not sure how to make the test for hidden to allow the toggle to work both ways (its possible) I just don't know

 

[Domenic]

When you click on the command button, it runs the click event for the toggle button, but its state or value doesn't get changed. I think you can replace...

Application.Run "Sheet8.ToggleButton1_Click"

with

Me.ToggleButton1.Value = Not Me.ToggleButton1.Value

 

[Mindlesh]

Me.ToggleButton1.Value = Not Me.ToggleButton1.Value

That's perfect, thank you!