Boa tarde!!

Use a pesquisa, eu me lembro te responder algo sobre isso.
http://dmcritchie.mvps.org/excel/ccomment.htm

Fonte:
http://msdn.microsoft.com/en-us/library ... =office.11).aspx

Sub FormulasIntoComments()
    Dim cell As Range
    Selection.ClearComments
    For Each cell In Selection
      If cell.HasFormula Then
        cell.AddComment cell.Formula
        cell.Comment.Visible = False
        cell.Comment.Shape.TextFrame.AutoSize = True
      End If
    Next cell
End Sub

Att

Bom dia a todos
Gostaria de saber se é possivel , e como; em uma planilha quando colocar o cursor sobre uma célula ,ela me mostrar o balão do comentário, porém sem um valor fixo e sim com o resultado de uma fórmula. Exemplo colocando o cursor sobre A2 -mostrar resultado de A2 x $B$1 (onde A2=10 e B1=746us) ou seja; no balão deve mostrar o resultado 7460us . Colocando o cursor sobre A3 (22,5) , mostrar resultado de A3 x $B$1 , ou seja 16785us , e assim por diante em todas as células de um determinado intervalo.

claudinei, alem da opção do colega alexandrevba , veja essa se funciona:

Sub InserComentarios()
     
    Dim r As Range
    Dim i As Long
    i = 2
    For i = i To 11
       Set r = Plan1.Range("A" & i)
       
        With r
            .ClearComments
             ' se a celula não estiver em branco
            If r.Value <> "" Then
            .AddComment
               .Comment.Text Text:="Resultado é :" & Chr(10) & Range("A" & i).Value *  _ 
Left(Range("$B$1"), 3) & "us"
                .Comment.Visible = False
           End If
        End With
    Next i
    
End Sub

Não sei o que fiz errado , mas nenhum dos dois fez o que eu precisava; poderiam me ajudar com esse que achei? dentro do arquivo tem umas explicações bem simples do que pretendo . muitissimo obrigado

claudinei, veja o anexo se é isso msm.

é mais ou menos isso, alias é isso porem queria esses valores nessa "janelinha " que estou usando , se nao for pedir muito tem como comentar esses códigos , pra que eu possa ir aprendendo?