Why doesn't this work in a loop?

[ModusPonen]

I'm using the following code to add comments to cells, or add to the existing comments in cells. For some reason, it will work fine the first time through, but not the second. Any ideas?

[VBA]Sub CommentTest()
Dim HasComment As Boolean
Dim oldCmtStr As String
Dim noteStr As String

noteStr = "hey there"

On Error Resume Next
HasCommnet = ActiveCell.Comment.Parent.Address = ActiveCell.Address
On Error GoTo 0
If HasComment = True Then
oldCmtStr = ActiveCell.Comment.Text
ActiveCell.Comment.Text Text:=oldCmtStr & Chr(10) & noteStr
Else
ActiveCell.AddComment Text:=noteStr
End If

End Sub[/VBA]

[mdmackillop]

Welcome to VBAX

Add this line before your code
[VBA]Option Explicit
[/VBA]

[ModusPonen]

Thanks so much for the reply. Now however, it tells me the variable is not defined.

[mdmackillop]

That is the purpose of Option Explicit. Check your spelling.

[Kenneth Hobs]

[VBA]Sub CommentTest()
Dim CommentText As String
Dim oldCmtStr As String
Dim noteStr As String

noteStr = "hey there"

On Error Resume Next
CommentText = Empty
CommentText = ActiveCell.Comment.Text
On Error GoTo 0

If CommentText <> Empty Then
oldCmtStr = ActiveCell.Comment.Text
ActiveCell.Comment.Text Text:=oldCmtStr & Chr(10) & noteStr
Else
ActiveCell.AddComment Text:=noteStr
End If

End Sub[/VBA]

[ModusPonen]

One was "HasCommnet" and the other was "HasComment". Thanks again.