Thank you, Norman and Herbert, both solution was new to me, both works
perfectly!

Regards,
Stefi


€žHerbert€� ezt Ã*rta:

Hello,

you could use the Comments object

Dim ws As Worksheet, c As Comment

Set ws = ActiveSheet

For Each c In ws.Comments
Debug.Print c.Text
Next c

Regards,
Herbert

"Stefi" wrote:

Hi all,

Is there a better way to find a certain comment text (say in a variable
named commtext) within a range than checking each cell in the range with an
If Cell.Comment.Text = commtext then
statement in a For each ... cycle?

Thanks,
Stefi