Hi All,

I would want to hide all the sheets while the work sheet is
opening, i.e assuming from the second sheet in the workbook in a loop
till the last sheet in the workbook. Can any one please help me....

Raj,

You can't hide all the sheets in a workbook so in this macro pick the name
of a single sheet to leave visible.

Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
If wSheet.Name < "Sheet1" Then
wSheet.Visible = xlVeryHidden 'Change to True to unhide
End If
Next wSheet
End Sub

Mike

"Raj" wrote:

Hi All,

I would want to hide all the sheets while the work sheet is
opening, i.e assuming from the second sheet in the workbook in a loop
till the last sheet in the workbook. Can any one please help me....

On Jul 17, 3:54 pm, Mike H wrote:
Raj,

You can't hide all the sheets in a workbook so in this macro pick the name
of a single sheet to leave visible.

Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
If wSheet.Name < "Sheet1" Then
wSheet.Visible = xlVeryHidden 'Change to True to unhide
End If
Next wSheet
End Sub

Mike



"Raj" wrote:
Hi All,

I would want to hide all the sheets while the work sheet is
opening, i.e assuming from the second sheet in the workbook in a loop
till the last sheet in the workbook. Can any one please help me....- Hide quoted text -

- Show quoted text -

ok... thx.........