workbook open event

[User]

dears,

I want the workbook when it is opened to activate a specific sheet and
hide the remaining sheets. please help me in this regard.

thanks,
naweed

 

[Vasant Nanavati]

Put the following code in the ThisWorkbook module:

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.name <> "xxx" then ws.Visible = xlSheetHidden
Next
End Sub
_________________________________________________________________________

 

[Guest]

Try this

Private Sub Workbook_Open()
Sheet1.Activate
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
End Sub

 

[Guest]

Try:-

Private Sub Workbook_Open()
For i = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(i).Select
If Worksheets(i).Name <> "Sheet1" Then ' Change to be the one you want active
Worksheets(i).Visible = False
End If
Next i
End Sub


Mike

 

[Vasant Nanavati]

No need to select any of the worksheets.
_________________________________________________________________________