Visible Hidden Very Hidden
Private Sub CommandButton1_Click()
Sheet3.Visible = xlSheetVisible
End Sub
Private Sub CommandButton2_Click()
Sheet4.Visible = xlSheetHidden
End Sub
Private Sub CommandButton3_Click()
Sheet3.Visible = xlSheetVeryHidden
End Sub
Private Sub CommandButton4_Click()
Dim Wkb As Workbook
Workbooks.Open (ThisWorkbook.Path & "\" & "InputWorkbook.xlsx")
Set Wkb = ActiveWorkbook
Wkb.Sheets("Orange").Visible = xlSheetVeryHidden
Wkb.Sheets("Grapes").Visible = xlSheetHidden
Wkb.Save
Wkb.Close
End Sub