Отображение связей в определенном диапазоне - VBA

Формулировка задачи:

Добрый день. Подскажите ответ на вопрос. У меня есть макрос отображающий связи на листе - при открытии книги.

Private Sub Workbook_Open()
Dim cl As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each cl In ActiveSheet.UsedRange
    With cl
        .ShowPrecedents
        .ShowDependents
    End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Как заставить отображать связи - только в определенном диапазоне (я выделил этот диапазон желтым цветом) ?

Решение задачи: «Отображение связей в определенном диапазоне»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_Open()
Dim cl As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set cl = Range("J3:Q10")
cl.Select
For Each cl In Selection
    With cl
        .ShowPrecedents
        .ShowDependents
    End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
                        