Привет всем !

Помогите пожалуйста ...кто может :)
Отрываю из excel еще один файл и пытаюсь сделать его невидимым в панли задач...
Вылазит error Subscript out of range
в строке - Windows(Blib).Visible = False
коментарю ее все работает нормально,т.е. файл открывается ...
а невидимым не хочет быть ...

path1 = Workbooks("zt.xls").Sheets("Общие_данные").Cells(3, 3).Value

If Not path1 & Blib = "" Then
Application.DisplayAlerts = False
ActiveWorkbook.UpdateRemoteReferences = False
Workbooks.Open(path1 & Blib).RunAutoMacros xlAutoOpen
Windows(Blib).Visible = False

Else
MsgBox theTitle & Chr(10) & Chr(13) & "Выполнение программы прервано", _
theCode, theTitle
Workbooks(book).Close SaveChanges:=False
End If

Jojo®

Уже разобрался

Jojo®

Так работает
If Not path1 & Blib = "" Then
Application.DisplayAlerts = False
ActiveWorkbook.UpdateRemoteReferences = False
Workbooks.Open(path1 & Blib).RunAutoMacros xlAutoOpen
Excel.Application.Windows(1).Visible = False

Jojo®