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

On Sat, 12 Apr 2008 11:01:01 -0700, dimm wrote:

Hi,

Can someone tell me how to VeryHide and also to make a worksheet visible
again using VBA?

If thats not possible can I just regular hide and unhide a worksheet using
VBA?

Thanks for any advice.