VB to Hide Sheets

[spg2112]

Hello All,

I want to hide an array of data sheets when my workbook opens, unhide them for refreshing the data and calculations, then hide them again after the calculation is finished. Any help would be appreciated.

Steve

[Al Chara]

The following are examples from the help file on the "visible property":

This example hides Sheet1.

Worksheets("Sheet1").Visible = False
This example makes Sheet1 visible.

Worksheets("Sheet1").Visible = True
This example makes every sheet in the active workbook visible.

For Each sh In Sheets
sh.Visible = True
Next sh

_________________
Hope this helps.
Kind regards, Al.

[ This Message was edited by: Al Chara on 2002-05-17 13:00 ]

[spg2112]

Thanks, that helps. What was the Sub name to kick off a macro when the file opens? I forgot.

[Mudface]

You could amend the following code, which will hide all sheets part from summary when the workbook is opened: -

Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Summary" Then ws.Visible = False
Next ws

End Sub

Place the above in the ThisWorkbook module.

About the easiest way to unhide them would be to stick a command button on the unhidden sheet and assign it the following code: -

Private Sub CommandButton1_Click()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws

End Sub

Hope this helps.

[spg2112]

Yes, thanks guys...that works just fine!

Steve