Please I have wanted to hide some sheets in my workbook. Please this the code:-
Sub sbHideSheets()
On Error Resume Next 'Prevent errors showing - will simply keep going
shtSplash.Visible = xlSheetVisible 'Make splash screen visible
For Each oSheet In ActiveWorkbook.Sheets 'Loop through all worksheets in the active workbook
If oSheet.Name <> shtSplash.Name Then oSheet.Visible = xlSheetVeryHidden 'If not splash screen then make very hidden
Next oSheet
'BECAUSE IT DIDN'T HIDE I TRIED TO RUN IT IN A DIFFERENT WAY
Sheets("WARN").Visible = True
Sheets("PEN 1").Visible = xlVeryHidden
Sheets("PEN 2").Visible = xlVeryHidden
Sheets("PEN 3").Visible = xlVeryHidden
Sheets("PEN 4").Visible = xlVeryHidden
Sheets("PEN 5").Visible = xlVeryHidden
Sheets("ISOLATION").Visible = xlVeryHidden
Sheets("1Audit").Visible = xlVeryHidden
Sheets("OVERALL TOTAL DETAILS").Visible = xlVeryHidden
Sheets("OVERALL TOTAL").Visible = xlVeryHidden
Sheets("HOME").Visible = xlVeryHidden
On Error GoTo 0 'Reset error handler to default setting
End Sub
Please info behind this workbook is that it has sheet that are protected. Any help!
Einar