HasComment?
 

Hi,

(My first posting to this group.)

I want to examine the text of a cell comment but if I use a clause
like
If myCell.Comment.Text = "xyz"
on a cell without a comment, I get an error message.

I guess I could iterate through all comments in a specific range with
For Each myComment In Range.Cells.Comments
but as I already for other purposes am iterating through the cells in
this range, It would be easier if I simply could check for the
existence of any comment in the active cell.

Is there a possibility to find out whether a cell has a comment or
not?

TIA

Örjan Skoglösa

HasComment?
 

The easiest way is to use error trapping.

On error Resume Next
x = Len(MyCell.Comment.Text)
If Err.Number < 0 Then
'no comment
Else
'do your thing here
End If
On Error Goto 0



On Sun, 24 Aug 2003 15:16:16 +0200, Örjan Skoglösa wrote:

Hi,

(My first posting to this group.)

I want to examine the text of a cell comment but if I use a clause
like
If myCell.Comment.Text = "xyz"
on a cell without a comment, I get an error message.

I guess I could iterate through all comments in a specific range with
For Each myComment In Range.Cells.Comments
but as I already for other purposes am iterating through the cells in
this range, It would be easier if I simply could check for the
existence of any comment in the active cell.

Is there a possibility to find out whether a cell has a comment or
not?

TIA

Örjan Skoglösa

HasComment?
 

Thank you Orlando, Myrna and John.

Regards,

Örjan

On Mon, 25 Aug 2003 13:51:56 +1000, "John"
wrote:

Örjan Skoglösa

How about this, plagiarised (by me) from an earlier suggestion by Bob
Phillips:-

Sub Macro1()


If Not (Range("A1").Comment Is Nothing) Then
Range("A1").Comment.Delete
End If

End Sub


regards,

John


"Örjan Skoglösa" wrote in message
.. .
Hi,

(My first posting to this group.)

I want to examine the text of a cell comment but if I use a clause
like
If myCell.Comment.Text = "xyz"
on a cell without a comment, I get an error message.

I guess I could iterate through all comments in a specific range with
For Each myComment In Range.Cells.Comments
but as I already for other purposes am iterating through the cells in
this range, It would be easier if I simply could check for the
existence of any comment in the active cell.

Is there a possibility to find out whether a cell has a comment or
not?

TIA

Örjan Skoglösa