Всем добрый день!  
 
Подскажите, пожалуйста, с чем может быть связана ошибка:  
 
run-time error '-2147221080 (800401a8)':  
automation error  
 
--------------------------------  
 
Dim iUserName As String  
Dim iFullName As String  
Dim EX As Application  
Dim wb As Workbook  
 
iUserName = Environ("UserName")  
iFullName = "C:\Documents and Settings\" & iUserName & "\книга_2.xlsm"  
 
... код ....  
 
Set EX = New Application  
EX.Visible = False  
Set wb = EX.Workbooks.Open(iFullName)  
 
wb.Sheets(1).Visible = -1 /ошибка возникает на данной строке. Sheets(1) в книге "книга_2.xlsm" изначально скрыт, поэтому я патаюсь его отобразить.  
 
... код ....  
 
--------------------------------  
 
Понимаю, что для нормального ответа желателен весь код макроса, поэтому буду признателен хотя бы за пинок в нужное направление (исходя из специфики ошибки).