Boa tarde!!

Veja se ajuda

Sub AleVBA_18014()
    ActiveCell.AddComment ("Teste" & Now())
End Sub

Para mais leia:
http://www.contextures.com/xlcomments03.html

Att

Boa tarde!!

Para executar via duplo click tente

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, ActiveCell) Is Nothing Then
        ActiveCell.AddComment ("Teste" & Now())
    End If
End Sub

Esse código deve ser posto dentro do módulo de planilha!

Att

Prezado Alexandre,

Obrigado pela resposta, mas com esse código não consegui fazer nada.

Tive que adequar com a fórmula do amigo, abaixo.

Mesmo assim, agradeço imensamente.

Flávio Leite®.

Boa tarde!!

Veja se ajuda

Sub AleVBA_18014()
    ActiveCell.AddComment ("Teste" & Now())
End Sub

Para mais leia:
http://www.contextures.com/xlcomments03.html

Att

Prezado Alexandre,

Desse jeito ficou show de bola.
Apenas só mais uma ajuda.
Se eu clico na célula duas vezes, preenche corretamente, porém se voltar nessa mesma célula ela dá erro, ou seja, não conseguiria atualizar o comentário.

Desde já agradeço.

Flávio Leite®.

Boa tarde!!

Para executar via duplo click tente

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, ActiveCell) Is Nothing Then
        ActiveCell.AddComment ("Teste" & Now())
    End If
End Sub

Esse código deve ser posto dentro do módulo de planilha!

Att

Tente assim :

Fonte : http://www.vb-helper.com/howto_vba_excel_comments.html

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim rng As Range
   Set rng = ActiveCell
   
   If rng.Comment Is Nothing Then rng.AddComment
        rng.Comment.Text "Teste " & Format(Now)
    
End Sub

[]s