На какое событие повесить процедуру изменения насыщенности шрифта в ячейке?

[O_H]

При клике на ячейке(определённой!) хотелось бы переключать насыщенность её шрифта:
Selection.Font.Bold = Not Selection.Font.Bold
но не пойму на какое событие посадить процедуру?

[KL (XL)]

Как-то так:

PHP код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, c As Range
    On Error Resume Next
    Set rng = Intersect(Target, [A1:C10])
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each c In rng
        c.Font.Bold = Not c.Font.Bold
    Next c
    Application.ScreenUpdating = True
End Sub 


Где [A1:C10] - область ограничивающая действие макроса.

[O_H]

К сожалению, событие SelectionChange возникает "через клик", т.е. первый клик на ячейке событие вызовет, но второй клик на ней же событие не вызывает.
Второй клик д.б. ещё где-то... тогда третий клик можно опять делать на нужной ячейке - событие опять вызовется...
Видно, повторный клик на той-же ячейке не воспринимается листом как это самое ...Change

[O_H]

О!
надо после строки изменяющий шрифт добавить
Range("<какая-нибудь ячейка за пределами экрана>").Activate
За код процедуры - спасибо!