Excel VBA: Check for Comments

'If Comment does not exist
 If Range("B4").Comment Is Nothing Then
 Range("B4").Value = "Does not exist."
 End If

 'If Comment exist
 If Not Range("C4").Comment Is Nothing Then
 Range("C4").Value = Range("C4").Comment.Text
 End If

Leave a Reply

Your email address will not be published. Required fields are marked *