Передача object в качестве аргумента

[moknomo]

Доброе время суток.
Столкнулся с такой проблемой:
открываю файл таким способом

Dim myEx As Object
Set myEx = GetObject(TextBox2.Text)

Затем произвожу некоторые операции (смотрю количество листов, читаю некоторые ячейки) - это проходит без ошибок. Затем вызываю процедуру:

Call LoadSheet(myEx)

Сама процедура:

Sub LoadSheet(ByRef myEx As Object)
'здесь любые операции с документом приводят к ошибке
End Sub

Текст ошибки

Application-defined or object-defined error

Что-то я делаю неправильно, но вот что...?

[doober]

myEx -что за объект,он к этому времени случайно уже не отключен,
или ликвидирован

[EducatedFool]

Попробуйте так:

Sub test()
    Dim myEx As Workbook
    Set myEx = GetObject(TextBox2.Text)    ' открываем книгу Excel

    LoadSheet myEx
    
    myEx.Close False    ' закрываем файл без сохранения
End Sub

Sub LoadSheet(ByRef myEx As Workbook)
    'здесь любые операции с документом приводят к ошибке
    MsgBox myEx.Name
End Sub

[moknomo]

Спсибо за помощь, вариант с воркбуком прошёл.