Hide Sheets

[Abdul]

Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name <> "Detail" Then
WS.Visible = xlSheetVeryHidden
End If
Next WS


But when I have three Charts in the workbook it is not hidden?!

How I get both charts and sheets Hidden except sheet ("Details")

Thanks

 

[Paul B]

Abdul, try this,

For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "Detail" Then
Sheet.Visible = xlSheetVeryHidden
End If
Next Sheet


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003