invoegen op werkblad, niet in module, bestaande vba code behouden !

Dim LastCommentText As String
Dim LastCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Comment

    ' Controleer of vorige cel een commentaar had
    If Not LastCell Is Nothing Then
        Set c = LastCell.Comment

        If Not c Is Nothing Then
            ' Is de commentaartekst gewijzigd?
            If c.Text <> LastCommentText Then
                Call KopieerNotitie 
            End If
        End If
    End If

    ' Nieuwe selectie opslaan
    Set LastCell = Target
    If Not Target.Comment Is Nothing Then
        LastCommentText = Target.Comment.Text
    Else
        LastCommentText = ""
    End If
End Sub