Boa tarde!!

Até onde sei não..

Talvez ha um chance via VBA

Att.

boa tarde!!
Veja algumas opções por VBA

Sub InsertComment()
    With Range("b3")
        If .HasFormula Then
            .Offset(2).AddComment Text:=.Formula
        End If
    End With
End Sub


Function getComment(incell) As String
' aceepts a cell as input and returns its comments (if any) back as a string
On Error Resume Next
getComment = incell.Comment.Text
End Function

Permitam-me...

Uma opção:

Bom dia!!

Essa deve funcionar..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    x = Application.Sum(Range("A2:A3"))
   With Cells(1, 1)
    .ClearComments
    .AddComment.Text Text:=CStr(x)
End With
     
End Sub

Uma outra orientação para aplicação na coluna F.

Private Sub Worksheet_Change(ByVal Target As Range)
'Por: José Arnaldo
Application.ScreenUpdating = False
On Error GoTo Fin
If Not Intersect(Target, Range("F1:F" & Rows.Count)) Is Nothing Then
'Se utilizar área além da coluna F alterar
If Target = Empty Or Intersect(Target, [F:F]) Is Nothing Then Exit Sub
    Dim qt As Integer
    qt = Sheets("Plan1").[F1].CurrentRegion.Rows.Count
[F:F].ClearComments
With Target
   .AddComment
   .Comment.Visible = True
   .Comment.Shape.Select True
   .Comment.Text Text:="Total = " & Application.WorksheetFunction.Sum(Plan1.Range("F1:F" & qt))
   .Select
End With
Exit Sub
Fin:
[F:F].ClearComments
End If
Application.ScreenUpdating = True
End Sub

Fala galera, valeu mesmo deu certo!!
Vocês são feras no assunto hehehehe!!
Obrigado

Boa tarde fer.mf

Vc pode agradecer as pessoas que te ajudaram clicando na mãozinha.

Veja tópico com explicação:

viewtopic.php?f=9&t=2394

Abraço.