PDA

View Full Version : Setting Sheet Visible Error



Adamski
01-14-2010, 08:08 AM
These lines work:

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


This dosen't work:

ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Visible = -1 ' Visible
ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Visible = 2 ' Very Hidden

"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...:think:

mdmackillop
01-14-2010, 08:13 AM
Dim sh
For Each sh In Sheets(Array("Sheet1", "Sheet2"))
sh.Visible = False
Next

Adamski
01-14-2010, 08:27 AM
Yeah, Thanks.
I know I can do that - I was trying to set sheets as VeryHidden or Visible in one hit.