Hi all
many thanks for previous help.

My Workbook contain 30 sheets
Sheet 1 is summary Sheet contain Buttons to display and activate selected
sheet button and hide others.
I found that I need to exclude al lot of sheets from hiding (say from sheet2
to sheet6). I mean that I need it to be displayed always.

This Code Used in Summary sheet
--------------------------------------------
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
--------------------------------
And this code to Activate and display for eatch
---------------------------------
Private Sub CommandButton1_Click()
DisplayWorksheet ("Sheet12")
Sheets("Sheet12").Activate
End Sub