Macro to Show hidden sheet

[djossh]

Hi i need a macro or vba code for this..

I have a workbook with "Hidden" sheet1, sheet2, sheet3 & sheet4....i also have userform (auto open everytime i open my workbook) with dropdown list namely Selection1, Selection2, Selection3 & Selection4...

what i want is if i select "Selection1" on the dropdown list it should show the sheet1 only... if i select "Selection3" on the dropdown list it should open my sheet3 and same with other Selection list..

Only 1 (one) sheet should be open.. everytime i switch to other sheet the current open sheet should be hidden..thanks..

 

[rs2k]

Adapt this to suit;

Sub HideSheet()
Sheets("Sheet1").Visible = True
Sheets("Sheet2").Visible = False
Sheets("Sheet3").Visible = False
Sheets("Sheet4").Visible = False
End Sub

HTH
Colin

 

[gbell3587]

Hi i need a macro or vba code for this..

I have a workbook with "Hidden" sheet1, sheet2, sheet3 & sheet4....i also have userform (auto open everytime i open my workbook) with dropdown list namely Selection1, Selection2, Selection3 & Selection4...

what i want is if i select "Selection1" on the dropdown list it should show the sheet1 only... if i select "Selection3" on the dropdown list it should open my sheet3 and same with other Selection list..

Only 1 (one) sheet should be open.. everytime i switch to other sheet the current open sheet should be hidden..thanks..

You can use case select

selection = range("whatever cell your drop down list relates to").value
select case selection
case selection1
Sheets("selection1").Visible = True
Sheets("selection2").Visible = False
Sheets("selection3").Visible = False
Sheets("selection4").Visible = False
case selection2
Sheets("selection1").Visible = False
Sheets("selection2").Visible = True
Sheets("selection3").Visible = False
Sheets("selection4").Visible = False
case selection3
Sheets("selection1").Visible = False
Sheets("selection2").Visible = False
Sheets("selection3").Visible =True
Sheets("selection4").Visible = False
case selection4
Sheets("selection1").Visible = False
Sheets("selection2").Visible = False
Sheets("selection3").Visible = False
Sheets("selection4").Visible = True
end select

 

[djossh]

Hi. thank you for your quick reply.. i just have one more question... what if i used the sheet name in my drop down list instead of using other name.. or is it possible to auto generate the dropdown list everytime i add new sheet since im using the sheet name as my drop down list also??... if that is possible please post the code.. Thanks