Very Hidden Sheets

[LB]

I have a macro that unhides all sheets with a loop.


For Each ws In ActiveWorkbook.Sheets

ws.Visible = True

Next ws


But, I have 2 sheets that need to remain "very hidden" & I can't seem to figure that out. Help please!!!

LB

 

[NARAYANK991]

Hi LB ,


Instead of :


ws.Visible = True


use


ws.Visible = xlVeryHidden


for those two sheets.


Narayan

 

[LB]

Narayan, I appreciate your quick response & I tried several variations of it & still couldn't get it to work. Here's the full macro, what did I do wrong?


Sub UnhideAll()


Application.ScreenUpdating = False


For Each ws In ActiveWorkbook.Sheets

ws.Visible = True

Next ws


Sheets("data", "instruct").Select

ActiveWindow.SelectedSheets.Visible = xlVeryHidden


Sheets("FLNA").Select

Range("A1").Select


End Sub

 

[NARAYANK991]

Hi ,


Try this :

[pre]

Sub UnhideAll()

Application.ScreenUpdating = False

For Each ws In ActiveWorkbook.Sheets
ws.Visible = True
Next ws

Sheets("data").Visible = xlVeryHidden
Sheets("instruct").Visible = xlVeryHidden

Sheets("FLNA").Select
Range("A1").Select

End Sub

[/pre]
Narayan

 

[shrivallabha]

If they are already very hidden then you can skip them from the loop like below:

[pre]

Public Sub HideSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "data" 'Do Nothing
Case "instruct" 'Do Nothing
Case Else
ws.Visible = xlSheetVisible
End Select
Next ws
End Sub

[/pre]