Закрытие объекта Workbook объявленного как Public

[glumz]

Добрый день.
Есть следующий код:
Option Explicit
Public a As Workbook

Sub Макрос1()
'
' Ìàêðîñ1 Ìàêðîñ
'
Set a = GetObject("\\ÎÒ÷åò\Ïðåìèè.xlsx")
MsgBox a.Worksheets("Report").Cells(7, 11).Value
'a.Close
End Sub
Sub z()
Макрос1
a.Close
End Sub

Общая мысль такова-в начале открываем несколько файлов через функцию GetObject, потом работаем с ними в разных подпрограммах и в конце закрываем. Так вот после отработки Sub z() данный файл остается открытым. Что я делаю не так? (Если инициировать объект как локальный то закрытие проходит нормально)

[staniiislav]

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

a.Close (False) если книгу не нужно сохранять
a.Close (True) если книгу нужно сохранять

Добавлено позже:
не получилось ((( ща попробую еще раз

[glumz]

К сожалению, не работает

[staniiislav]

Option Explicit

Public Wb As Workbook

Private Sub z_2()
Set Wb = GetObject(ThisWorkbook.Path & "\1.xlsm")
MsgBox Wb.Worksheets(1).Cells(1, 1).Value
End Sub
Private Sub z()
Call z_2
Wb.Close
Set Wb = Nothing
End Sub

вроде так работает

[glumz]

Спасибо! Заработало.