Hi every body

I have workebook contain 42 sheets and I make Summary sheet contain Buttons
for eatch to Activate.
How can I Hide the other sheets, while Buttons in summary sheet still work

Paste the procedure "DisplayWorksheet" and call that from the command button
click event like below example

Private Sub CommandButton1_Click()
'This will display Sheet1
DisplayWorksheet ("Sheet1")
End Sub

Sub DisplayWorksheet(strSheet As String)
'This will hide all other sheets except "Summary" and display strSheet
Application.ScreenUpdating = False
For Each wstemp In ActiveWorkbook.Sheets
If wstemp.Name < "Summary" Then wstemp.Visible = False
Next
ActiveWorkbook.Sheets(strSheet).Visible = True
Application.ScreenUpdating = True
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"NIDAL" wrote:

Hi every body

I have workebook contain 42 sheets and I make Summary sheet contain Buttons
for eatch to Activate.
How can I Hide the other sheets, while Buttons in summary sheet still work

If you use
veryhidden
then it can only be visible again with code.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jacob Skaria" wrote in message
...
Paste the procedure "DisplayWorksheet" and call that from the command
button
click event like below example

Private Sub CommandButton1_Click()
'This will display Sheet1
DisplayWorksheet ("Sheet1")
End Sub

Sub DisplayWorksheet(strSheet As String)
'This will hide all other sheets except "Summary" and display strSheet
Application.ScreenUpdating = False
For Each wstemp In ActiveWorkbook.Sheets
If wstemp.Name < "Summary" Then wstemp.Visible = False
Next
ActiveWorkbook.Sheets(strSheet).Visible = True
Application.ScreenUpdating = True
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"NIDAL" wrote:

Hi every body

I have workebook contain 42 sheets and I make Summary sheet contain
Buttons
for eatch to Activate.
How can I Hide the other sheets, while Buttons in summary sheet still
work