Sheet hide unhide Macro

Hi Sanjay,

The code as written in my answer:

To hide:

ActiveWorkbook.Sheets("Name").Visible = xlSheetVeryHidden

To unhide

ActiveWorkbook.Sheets("Name").Visible =xlSheetVisible


You can use loops and a decision code: (you will have to add/amend the sheet numbers in the Case line)



Sub HideSheet()

Dim Sh As Worksheet

For Each Sh In Worksheets


Select Case Sh.Index


Case 2, 5, 6

Sh.Visible = xlSheetVeryHidden

End Select

Next




End Sub


Sub UnhideAllSheets()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws

End Sub



Kind regards

Jens Bonde
Microsoft Office Specialist Trainer

Tel: 0207 987 3777
Best STL - https://www.stl-training.co.uk
98%+ recommend us

London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector