Hi,
Say you wanted all sheets hidden except Sheet1 you can use this:-
Sub HideAllSheetsBarOne()
Dim sht As Object
For Each sht In Sheets
If sht.Name <> "Sheet1" Then
sht.Visible = xlSheetHidden
End If
Next sht
End Sub
If you want the sheets hidden so they can't be unhidden using Format, Sheet, Unhide change the xlSheetHidden bit it xlSheetVeryHidden. That way the sheets in question can only be unhidden using VBA.
HTH,
Dan