Just some more options:

Sub Demo()
With ActiveCell
If .Comment Is Nothing Then
.AddComment "First Line" & vbLf
Else
.Comment.Text .Comment.Text & "More Lines" & vbLf
End If
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

HTH :)
--
Dana DeLouis
Win XP & Office 2003


"wardides" wrote in
message ...

Thats cleared it up thanks Lads.


--
wardides
------------------------------------------------------------------------
wardides's Profile:
http://www.excelforum.com/member.php...o&userid=15022
View this thread: http://www.excelforum.com/showthread...hreadid=488734