Setting Sheet Visible Error

[Adamski]

These lines work:
[VBA]
ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Visible = 0 ' Hidden

ThisWorkbook.Sheets("Sheet2").Visible = -1 ' Visible
ThisWorkbook.Sheets("Sheet3").Visible = -1 ' Visible

ThisWorkbook.Sheets("Sheet2").Visible = 2 ' Very Hidden
ThisWorkbook.Sheets("Sheet3").Visible = 2 ' Very Hidden
[/VBA]

This dosen't work:
[VBA]
ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Visible = -1 ' Visible
ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Visible = 2 ' Very Hidden
[/VBA]
"Run-time error '1004'"

I am ensuring that at least one sheet remains visible at all times.
The worksheets and workbook are not protected.

Am I doing something wrong?
It works by setting the sheets one at a time...

[mdmackillop]

[VBA]Dim sh
For Each sh In Sheets(Array("Sheet1", "Sheet2"))
sh.Visible = False
Next[/VBA]

[Adamski]

Yeah, Thanks.
I know I can do that - I was trying to set sheets as VeryHidden or Visible in one hit.