VBA: Añadiendo comentario a celda automáticamente con el contenido de esa celda.

Días atrás un compañero me planteaba la siguiente cuestión:

¿Es posible añadir a un comentario textos desde una celda de manera automática? Mi intención es que el texto que exista en una celda determinada se incorpore de manera automática a un comentario, y cuando cambie el texto de esa celda, cambia el comentario.

La idea es por tanto asociar la creación de un comentario al contenido de una celda de nuestra hoja de trabajo, para que cuando cambie el contenido de ésta, se inserte un comentario...

Para resolver nuestra cuestión en particular, insertamos el siguiente código dentro de la ventana de código de la Hoja donde necesitemos la funcionalidad desde el editor de VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    On Error Resume Next
    'verificamos que la celda tiene contenido.
    If .Value <> "" Then
        'eliminando cualquier Comentario anterior
        .ClearComments
        'Añadimos uno nuevo...
        .AddComment
        '...donde insertamos un texto con el texto de la celda
        .Comment.Text Text:=Application.UserName & ":" & Chr(10) & Target.Value
    Else
        'eliminando cualquier Comentario anterior
        .ClearComments
    End If
End With
End Sub

Vemos el resultado..

Si necesitáramos concretar el rango dentro de la hoja donde necesitamos esta funcionalidad, podríamos combinar nuestra macro con el método .Intersect (ver aquí)