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:
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: