Pages

Saturday, September 24, 2011

Hide and Unhide specific sheets in a workbook

If you want to hide or unhide specific sheets in a workbook.

Here is the code-


Sub hide_specific_worksheets()
'it will hide all sheets which will be added to Array("Sheet1", "Sheet2") list
Dim abc()
Dim wk As Worksheet
Dim i As Integer
abc = Array("Sheet1", "Sheet2")
For i = LBound(abc) To UBound(abc)
For Each wk In ThisWorkbook.Sheets
If wk.Name = abc(i) Then
wk.Visible = xlSheetVeryHidden
Exit For
End If
Next wk
Next i
End Sub



Sub unhide_specific_worksheets()
'it will unhide all sheets which will be added to Array("Sheet1", "Sheet2") list
Dim abc()
Dim wk As Worksheet
Dim i As Integer
abc = Array("Sheet1", "Sheet2")
For i = LBound(abc) To UBound(abc)
For Each wk In ThisWorkbook.Sheets
If wk.Name = abc(i) Then
wk.Visible = xlSheetVisible
Exit For
End If
Next wk
Next i
End Sub

2 comments:

  1. Very nice use of array and code works well. Nice if you have specific sheets to hide/unhide. Thank you!

    ReplyDelete