Hide/Unhide sheets

[dave]

Is it possible to hide and unhide sheets thru VBA?

Thnks

 

[Roger Govier]

Hi Dave

Try
Sheets("Sheet1").Visible = False
..
..
..
Sheets("Sheet1").Visible = True

 

[dave]

Thnks

Hi Dave

Try
Sheets("Sheet1").Visible = False
.
.
.
Sheets("Sheet1").Visible = True

 

[Tom Ogilvy]

Public Sub Hidesheets()
Dim sh as Worksheet
for each sh in thisworkbook.worksheets
if sh.Name <> "Sheet1" then
sh.visible = xlSheetHidden
else
sh.Visible = xlSheetVisible
end if
Next
End Sub


as an example.

 

[Tom Ogilvy]

Just to add, the acceptable constants are:

? xlSheetVisible
-1
? xlSheetHidden
0
? xlSheetVeryHidden
2

True is coerced to -1
False is coerced to 0

so they work as well.