Принудительное позиционирование (VBA)

[GWolf]

Добрый вечер коллеги!

Может туплю, но не получается решить задачку:

Клик по любой ячейке видимой области листа приводит к Cells(2,2).Select
А вот как сделать это самое "приводит" - ХЗ!!!

Может кто подкинет решение или идейку?
Пример не прикладываю. Вопрос вроде понятный. Но если нужно - приложу.

[Wasilic]

Вроде так.
Один клик -

Код Выделить Развернуть

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells(2,2).Select
End SubДва клика-

Код Выделить Развернуть

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells(2,2).Select
    Cancel = True
End Sub
ЗЫ А видимая область у каждого своя !!!