Creating VBA Button to Do Three Operations Simialtaniously

Hi all,

Please note - I am a complete novice and I have been trying to get my head around this for a few days, with little success.

I want a button/check box/toggle box/I don't care! to do three tasks at the same time.
- The button will be on Sheet1 "CONTROL CENTER"
- I want Sheet Sheet4 "Thai Menu" to hide
- I want column C, P, AC & AP on Sheet16 "Menu-MASTER" to hide
- I want columns C, P, AC, AP, BC, BP, CC & CP on Sheet17 "Options-MASTER" to hide

I am using Excel 2016 so VBA is one way to do this. This sheet will be sent to customers for them to complete, if VBA buttons are not supported on older version of Excel I need an alternative option (perhaps Javascript or other, please advise).

I really need this is all spelt out to me from how to add the button to how to add the code. If you are able to do it in your own Excel document I should be able to copy it over and figure it out from there.

Thanks for any help in advance, I'm sure there's a whizz out there that can complete this in two minutes!

Danny

Sub Button()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet

    Set ws1 = Worksheets("Thai Menu")
    Set ws2 = Worksheets("Menu-Master")
    Set ws3 = Worksheets("Options-Master")
    
    
    ws1.Visible = xlSheetHidden
    ws2.Columns("C").EntireColumn.Hidden = True
    ws2.Columns("P").EntireColumn.Hidden = True
    ws2.Columns("AC").EntireColumn.Hidden = True
    ws2.Columns("AP").EntireColumn.Hidden = True
    
    ws3.Columns("C").EntireColumn.Hidden = True
    ws3.Columns("P").EntireColumn.Hidden = True
    ws3.Columns("AC").EntireColumn.Hidden = True
    ws3.Columns("AP").EntireColumn.Hidden = True
    ws3.Columns("BC").EntireColumn.Hidden = True
    ws3.Columns("BP").EntireColumn.Hidden = True
    ws3.Columns("CC").EntireColumn.Hidden = True
    ws3.Columns("CP").EntireColumn.Hidden = True
    
    
    
    
End Sub

See attached file.

Or this:

Private Sub CommandButton1_Click()
    With ThisWorkbook
        .Sheets("Thai Menu").Visible = False
        .Sheets("Menu-MASTER").Range("C1,P1,AC1").EntireColumn.Hidden = True
        .Sheets("Options-MASTER").Range("C1,P1,AC1,BC1,BP1,CC1,CP1").EntireColumn.Hidden = True
    End With
End Sub

BSB

Hey guys,

Thanks for that.

Those buttons only make them hide, how about the same button making the opposite happen (appear).

Danny

Try this version with a ToggleButton:

Private Sub ToggleButton1_Change()
    With ThisWorkbook
        If ToggleButton1 = True Then
            .Sheets("Thai Menu").Visible = False
            .Sheets("Menu-MASTER").Range("C1,P1,AC1").EntireColumn.Hidden = True
            .Sheets("Options-MASTER").Range("C1,P1,AC1,BC1,BP1,CC1,CP1").EntireColumn.Hidden = True
            ToggleButton1.Caption = "Unhide"
        Else
            .Sheets("Thai Menu").Visible = True
            .Sheets("Menu-MASTER").Range("C1,P1,AC1").EntireColumn.Hidden = False
            .Sheets("Options-MASTER").Range("C1,P1,AC1,BC1,BP1,CC1,CP1").EntireColumn.Hidden = False
            ToggleButton1.Caption = "Hide"
        End If
    End With
End Sub

BSB