The SetComment subroutine sets or clears a cell's comment. The range passed into the subroutine should be a single cell. If it is not, then the routine sets the comment for the range's first cell.

First the subroutine checks the new comment text's length to see if it is setting or clearing a comment. Pass in a blank string to clear a comment.

If the subroutine should clear any existing comment, the code checks whether the comment is Nothing. If the comment is not Nothing, the code calls the comment's Delete method to delete it.

If the new comment text is non-blank, the code checks whether the comment is Nothing. If the comment is Nothing, the code calls the cell's AddCommenth method to make the comment. If the comment is not Nothing, then the code calls the comment's Text method to set its new text.

' Put a comment in a Range.
Private Sub SetComment(ByVal the_cell As Range, ByVal txt _
    As String)
    ' See if the text is blank.
    If Len(txt) = 0 Then
        ' Clear any existing comment.
        ' See if the cell has a comment.
        If Not (the_cell.Comment Is Nothing) Then
            the_cell.Comment.Delete
        End If
    Else
        ' Set the comment.
        ' See if the cell has a comment.
        If the_cell.Comment Is Nothing Then
            the_cell.AddComment txt
        Else
            the_cell.Comment.Text txt
        End If
    End If
End Sub