VBA to Hide Unhide sheets based on dropdown selection.

[sanket_sk]

Hi There,

I have 4+ hidden sheets in workbook ( Jan~Mar Just created for sample) +1 Menu Sheet.

Menu sheet has dropdown of Month Jan~Mar.

I want user to select any month and that particular sheet need to be unhide, keep rest of the sheet hidden as well as hide menu sheet as well, in case user selects Back to Menu in any of the sheet VBA should unhide only Menu sheet and rest of the sheets go to hidden.

Menu Sheet
Dropdown is in Cell A2

Rest of the Month Sheets
Back to Menu is in Cell D2

Could you please help me build suitable VBA.

Thanks & Regards,

Sanket

 

[Micron]

maybe something along the lines of

Private Sub ComboBox2_Change()
Dim ws As Worksheet

Set ws = Worksheets(ComboBox2)
ws.Visible = xlSheetVisible
For Each ws In ThisWorkbook.Sheets
     If ws.Name <> Worksheets(ComboBox2).Name Then ws.Visible = False
Next

End Sub