Sub hide_em()
Dim n As Single
Dim ws As Worksheet
      For Each ws In ThisWorkbook.Worksheets
           If Not ws.Name = "hoohah" Then
      ws.Visible = xlVeryHidden
  End If
Next ws
End Sub

Sub unhide_em()
Dim n As Single
Dim ws As Worksheet
     For Each ws In ThisWorkbook.Worksheets
     ws.Visible = True
Next ws
End Sub

To hide a single sheet or selected sheets...............

Sub hidesome()
   ActiveWindow.SelectedSheets.Visible = xlVeryHidden
End Sub

Gord Dibben  MS Excel MVP

dimm,

You can use the ActiveSheet.Visible = xlVeryHidden property, or you
can also refer to sheets by name, for example:

Sub HideSheet()
Worksheets("Sheet1").Visible = xlVeryHidden
End Sub

Sub UnHideSheet()
Worksheets("Sheet1").Visible = xlVisible
End Sub

You can then adapt this basic structure to meet your own needs.

Alex