VBA Help

[AussieVic]

Is this possible? I want to hide all worksheets except for these 2

For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <>Sheets(1) And Sh.Name <> Sheets(2)  

Then Sh.Visible= xlSheetVeryHidden

 

[rudfaden]

Try This:

Sub HideSheet()
For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> Worksheets("Sheet1").Name And sh.Name <> Worksheets("Sheet2").Name Then sh.Visible = xlSheetVeryHidden
Next sh
End Sub

 

[AussieVic]

Ho would i do the reverse of this, so keep all worksheets but hide these 2

Try This:

Sub HideSheet()
For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> Worksheets("Sheet1").Name And sh.Name <> Worksheets("Sheet2").Name Then sh.Visible = xlSheetVeryHidden
Next sh
End Sub

 

[rudfaden]

Sub HideSheet2()
For Each sh In ThisWorkbook.Worksheets
        If sh.Name = Worksheets("Sheet1").Name Or sh.Name = Worksheets("Sheet2").Name Then sh.Visible = xlSheetVeryHidden
Next sh
End Sub