show hide multiple columns

[mattstan2012]

Hi

I have managed to find the following which allows me to toggle between showing and hiding a specific column using a toggle button a and VGA:
Private Sub ViewHideLunches_Click()
Dim MyC As String
MyC = "C:D"
If ViewHideLunches.Value Then

Application.ActiveSheet.Columns(MyC).Hidden = True
Else

Application.ActiveSheet.Columns(MyC).Hidden = False

End If

End Sub

It works ace for hiding columns C & D, but I need to also hide C&D, H&I, M&N etc etc but I can't get it to do this.

I thought having MyC = "C:D","H:I","M:N" etc would work but, of course, it doesn't.

Any suggestions?

 

[dreid1011]

You can use Union to add all the columns to your range:

Dim MyC As Range
Set MyC = Union(Range("C:D"), Range("H:I"))
MyC.Columns.Hidden = True

 

[mattstan2012]

Hi Dreid 1011 - thank you for looking - Unless I've entered it incorrectly (which is likely) it seems to hide them, but not, unhide them:


Private Sub ViewHideLunches_Click()
Dim MyC As Range

Set MyC = Union(Range("C:D"), Range("H:I"))

MyC.Columns.Hidden = True

If ViewHideLunches.Value Then

Application.ActiveSheet.Columns(MyC).Hidden = True
Else

Application.ActiveSheet.Columns(MyC).Hidden = False


End If

End Sub

 

[dmt32]

Hi
try this update to your code & see if helps

Private Sub ViewHideLunches_Click()
    Dim MyC As String
    
    MyC = "C:D,H:I,M:N"
    
    ActiveSheet.Range(MyC).EntireColumn.Hidden = ViewHideLunches.Value

End Sub

Dave

 

[mattstan2012]

Not sure where to put that up[date Dave :O(

 

[dmt32]

Not sure where to put that up[date Dave :O(

Replaces all the code in your togglebutton ViewHideLunches_Click code

Dave

 

[mattstan2012]

Brilliant Dave - Thank you !!!!

 

[dmt32]

Brilliant Dave - Thank you !!!!

most welcome glad we were able to help & appreciate your feedback

Dave