id	summary	reporter	owner	description	type	status	milestone	component	version	severity	resolution	keywords	cc
1168	_ExcelBookOpen error on workbooks with hidden sheets	frubi	Valik	"_ExcelBookOpen will run into an error, if the first sheet of the workbook is hidden. If you try to select it, the COM interface throws an error.

It can be fixed by testing, if the sheet is visible
Out:
{{{
.ActiveWorkbook.Sheets(1).Select ()
}}}

In:
{{{
For $xx = 1 To .ActiveWorkbook.Sheets.Count
	If .ActiveWorkbook.Sheets($xx).Visible == $xlSheetVisible Then
		.ActiveWorkbook.Sheets($xx).Select ()
		ExitLoop
	EndIf 
Next
}}}

And some additional constants are needed
{{{
Const $xlSheetHidden = 0
Const $xlSheetVisible = 1
Const $xlSheetVeryHidden = 2
}}}

Greetings
frubi
"	Bug	closed	3.3.1.4	Standard UDFs	3.3.0.0	Blocking	Fixed