Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel        Dicas


Questão 21:
Como identificar via VBA as células que contem Comentários

Em determinada célula da minha Planilha há Comentários. Pergunto como posso identificar se uma célula contem ou não Comentários ?

Solução 21:

Sub Ver_Comentario( )
On Error Resume Next
Set Com = ActiveCell.Comment
If Com Is Nothing Then
MsgBox "Não há comentários", vbExclamation
Else
MsgBox "O comentário é :" & Com.Text, vbExclamation
End If
End Sub