Adding to existing comments

[Asterix]

Why doesn't the 3rd line work?

time_difference_text = Worksheets("Overall standings").Range(lowest_score_address).Comment.Text
comment_to_be_added = "Dropped score = " & Cells(i, lowest_score_column).Value & " / Time difference = " & time_difference_text
Worksheets("Overall standings").Range(lowest_score_address).AddComment = comment_to_be_added

[lynnnow]

try this:

[VBA]If Not Range("B3").Comment Is Nothing Then
NewText = Range("B3").Comment.Text & vbCrLf & "Hello"
Range("B3").Comment.Delete
Range("B3").AddComment NewText
End If[/VBA]

change the ranges though.

HTH

Lincoln

[Asterix]

try this:

[vba]If Not Range("B3").Comment Is Nothing Then
NewText = Range("B3").Comment.Text & vbCrLf & "Hello"
Range("B3").Comment.Delete
Range("B3").AddComment NewText
End If[/vba]

change the ranges though.

HTH

Lincoln

Thanks, that worked