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