Невыделяемые автофигуры в определенном диапазоне - VBA

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

Доброе утро, друзья. Помогите решить проблему. На листе часто обновляются автофигуры. При этом мне нужно, чтобы они были невыделяемыми. Сейчас я делаю это - меняя свойства защиты этих фигур, а потом ставя лист под защиту. Очень неудобно копаться с каждой автофигурой, поскольку они часто обновляются. Как макросом реализовать следующий алгоритм: При щелчке на кнопку макроса - все автофигуры в определенном диапазоне (выделен желтым) - становятся невыделяемыми.

Решение задачи: «Невыделяемые автофигуры в определенном диапазоне»

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

                            Private Sub Test()
    Лист3.Unprotect: Dim iShape As Shape
    For Each iShape In Лист3.Shapes
        If Not Intersect(Range(iShape.TopLeftCell, _
           iShape.BottomRightCell), [J5:O24]) Is Nothing Then
           iShape.Locked = True
        Else
           iShape.Locked = False
        End If
    Next
    Лист3.Protect , True, False
End Sub
                        