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