Objeto da coleção Comments

Range Comments (Comment)

Uma coleção de comentários de células. Cada comentário é representado por um objeto Comment.

Usando a coleção Comments

Use a propriedade Comments para retornar a coleção Comments. O exemplo seguinte oculta todos os comentários da planilha um.

Set cmt = Worksheets(1).Comments
For Each c In cmt
    c.Visible = False
Next

Use o método AddComment para adicionar um comentário a um intervalo. O exemplo seguinte adiciona um comentário à célula E5 da planilha um.

With Worksheets(1).Range("e5").AddComment
    .Visible = False
    .Text "reviewed on " & Date
End With

Use Comments(index), onde index é o número do comentário, para retornar um único comentário da coleção Comments. O exemplo seguinte oculta o comentário dois da planilha um.

Worksheets(1).Comments(2).Visible = False