Share via


How to: Programmatically Add and Delete Worksheet Comments

You can programmatically add and delete comments in Microsoft Office Excel worksheets. Comments can be added only to single cells, not to multi-cell ranges.

Applies to: The information in this topic applies to document-level projects and application-level projects for Excel 2013 and Excel 2010. For more information, see Features Available by Office Application and Project Type.

Adding and Deleting a Comment in a Document-Level Project

The following examples assume that there is a single-cell NamedRange control named dateComment on a worksheet named Sheet1.

To add a new comment to a named range

  • Call the AddComment method of the NamedRange control and supply the comment text. This code must be placed in the Sheet1 class.

    Me.dateComment.AddComment("Comment added " & DateTime.Now)
    
    this.dateComment.AddComment("Comment added " + DateTime.Now.ToString());
    

To delete a comment from a named range

  • Verify that a comment exists on the range and delete it. This code must be placed in the Sheet1 class.

    If Not Me.dateComment.Comment Is Nothing Then 
        Me.dateComment.Comment.Delete()
    End If
    
    if (this.dateComment.Comment != null)
    {
        this.dateComment.Comment.Delete();
    }
    

Adding and Deleting a Comment in an Application-Level Add-In Project

The following examples assume that there is a single-cell Microsoft.Office.Interop.Excel.Range named dateComment on the active worksheet.

To add a new comment to an Excel range

  • Call the AddComment method of the Microsoft.Office.Interop.Excel.Range and supply the comment text.

    Dim dateComment As Excel.Range = Me.Application.Range("A1")
    dateComment.AddComment("Comment added " & DateTime.Now)
    
    Excel.Range dateComment = this.Application.get_Range("A1");
    dateComment.AddComment("Comment added " + DateTime.Now.ToString());
    

To delete a comment from an Excel range

  • Verify that a comment exists on the range and delete it.

    Dim dateComment As Excel.Range = Me.Application.Range("A1")
    If Not dateComment.Comment Is Nothing Then
        dateComment.Comment.Delete()
    End If
    
    Excel.Range dateComment = this.Application.get_Range("A1");
    if (dateComment.Comment != null)
    {
        dateComment.Comment.Delete();
    }
    

See Also

Tasks

How to: Programmatically Display Worksheet Comments

Concepts

Working with Worksheets

NamedRange Control