Bom dia tristao.
Tente o código abaixo!
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
Inserir código:
Digitar Alt+F11
-> Inserir Modulo e colar o conteúdo do código.
Para utilizar
=getComment(A1)
Fonte:
https://dadosfinos.blogspot.com.br/2015 ... lulas.html
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Postado : 12/09/2017 5:16 am