Hiding and Unhiding worksheets in a Workbook

[shyamvinjamuri]

When I open the workbook, I would like only Sheet2 to be shown. Sheet2 has a code with message box.

Upon clicking OK in message box, I would like Sheet2 to be hidden and Sheet1 to be made visible.

PLease help

Thanks

 

[larrydunn]

Create Workbook Open procedure:

Private Sub Workbook_Open()
ActiveWorkbook.Sheets("Sheet2").Visible = True
ActiveWorkbook.Sheets("Sheet1").Visible = False
End Sub

Insert these lines into message box code:

ActiveWorkbook.Sheets("Sheet1").Visible = True
ActiveWorkbook.Sheets("Sheet2").Visible = False

 

[shyamvinjamuri]

Larrydunn,

Thank you so much.