Создание примечания по цвету ячейки???

[PeBoJIbBeP]

Доброго времени суток форумчане!!! Не могу решить задачу нужно создать примечание только по изменении активных ячеек в диапазоне которые были закрашены цветом причем любым. В примечании нужно поместить Username & Now и все. Т.е. цикловой график который будет отмечаться пооперационно, закрашивая ячейку любым цветом нужно создать автоматически с помощью VBA примечание в закрашиваемых ячейках с данными username & now... Вроде все файл-пример прикладываю. За ранее спасибо.

[doober]

Код в модуль листа.

Private FirstAddress As String
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
FirstAddress = Target.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Me.Range(FirstAddress).Interior.ColorIndex <> -4142 And _
       Me.Range(FirstAddress).Comment Is Nothing Then
        With Me.Range(FirstAddress).AddComment(Text:="Username:" & Chr(10) & _
            Format(Now, "dd\/mm\/yyyy hh:mm"))
            .Shape.Fill.ForeColor.RGB = 16053492
            .Shape.DrawingObject.Font.Name = "Tahoma"
            .Shape.DrawingObject.Font.Size = 9
            .Shape.DrawingObject.Font.Bold = True
        End With
    End If
End Sub

[PeBoJIbBeP]

Спасибо Doober. Все работеает, но немного не так я хочу чтобы выделил 1 ячейку или несколько выполнил заливку, ушел с ячеек автоматом создалось примечание на всех залитых ячейках с username & now!!! можно именно так сделать???