vba show or hide sheets

[rhombus4]

Not sure how 1st line will hide Sheet1 and Sheet3 if they are visible, but the second line won't show them. Also does it make a difference if I uses .Sheets or .Worksheets

ThisWorkbook.Sheets(Array("Sheet1", "Sheet3")).Visible = False 'Works if they are showing
ThisWorkbook.Sheets(Array("Sheet1", "Sheet3")).Visible = True 'Doesn't work

I know I can use code below but thought I could do it in one line

Dim sh
For Each sh In Sheets(Array("Sheet1", "Sheet3"))
sh.Visible = True
Next

 

[Yongle]

Try this

'hidden
Sheets(Array("Sheet1", "Sheet3")).Visible = xlSheetHidden
'visible
Sheets(Array("Sheet1", "Sheet3")).Visible = xlSheetVisible

Please IGNORE the above - just spotted that it does not work consistently

 

[Yongle]

1. A loop is necessary to make sheets VISIBLE - Excel does not appear to allow the array method above

2. If all sheets in the array are visible then this method works to HIDE sheets - but it fails if any of the sheets in the array are already hidden
Sheets(Array("Sheet1", "Sheet3")).Visible = xlSheetHidden

 

[rhombus4]

Thanks, guess best way is the code below

Dim sh
For Each sh In Sheets(Array("Sheet1", "Sheet3"))
sh.Visible = True
Next

 

[Yongle]

or ...

    Dim sh As Variant
    For Each sh In Array("Sheet1", "Sheet3")
        Sheets(sh).Visible = True
    Next sh

 

[rhombus4]

Thanks, although not sure what's the difference between the 2