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

 

[mole999]

you should need at most (providing the right sheet is selected, or there is only one toggle named the same)

Private Sub CommandButton1_Click()
ToggleButton1_Click
End Sub

 

[Mindlesh]

I have selected the right sheet number, and there is only one toggle. I have tested that ToggleButton1_Click is being called by alternating the button's caption, but still the columns are unaffected.

 

[mole999]

If you F8 can you follow the code following what you what when triggered

 

[Mindlesh]

When I F8 it cycles through ToggleButton1_Click as expected.

 

[mole999]

so where in

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

does it fail

 

[Mindlesh]

It fails completely; ie. neither column is toggled.

 

[mole999]

So it runs to the End Sub, but no action occurs, that what is established. Can you post a workbook somewhere that can be looked at (stripped down data). Need to test whats happening

 

[Mindlesh]

I created a separate workbook, and it has yielded error 91: Object variable or With block variable not set. What do I need to do differently?

 

[mole999]

Using my vast guessing without seeing the problem skills, I would start by placing Option Explict at the very top of the code, so when you compile it will show errors