Зависимые ячейки

[Aleksei_86]

Добрый вечер!
Возник такой вопрос
ЗАДАЧА
Для ускорения работы файла пришлось отключить автоматический перерасчет ячеек (большой размер файла и очень много формул, файл с общим доступом), но так как зависимые ячейки находятся на разных листах возникла необходимость пересчитывать только их при изменении файла.
По этой ссылке http://msoffice.nm.ru/faq/macros/range2.htm#faq197 нашел такой код:

Private Sub Workbook_Activate()
Application.Calculation = xlManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = xlAutomatic
End Sub

Private Sub Workbook_SheetChange( _
ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
Target.Dependents.Calculate
End Sub

Но свойство Dependents находит зависимые ячейки только на активном листе.
ВОПРОС:
1.Как пересчитать все зависимые ячейки на всех листах книги?
2.Возможно ли получить список ячеек из окна Переход (Сервис-Зависимости формул-Зависимые ячейки, потом клацаем на черную стрелку, если есть ссылки на др. листы)?
Пример прилагаю
Надеюсь на Вашу помощь или совет!