Hi Don,

In addition to Paul's advice see Debra Dalgleish's suggestions at:

http://www.contextures.com/xlcomments03.html#Resize


---
Regards,
Norman


"D.S." wrote in message
...
One more question about the comment box....

Can it be sized? for instance, can I size it to fit the contents?


"D.S." wrote in message
...
Thanks to all


"John" wrote in message
...
Hi Donald,

Have a go with this.

Best regards

John



Sub DonaldsComment()

Dim oCmt As Comment

'Set reference to new comment
Set oCmt = ActiveCell.AddComment

'Set visibility & text
oCmt.Visible = False
oCmt.Text "This is a test"

'Set font
With oCmt.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 10
.Bold = False
End With

'Set comment size
With oCmt.Shape
.Width = 100
.Height = 100
End With

End Sub




"Donald Stockton" wrote in message
...
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="This is a Test"


The above code will add a comment to the active cell, but how can I
also
change the Font properties rather than excel using the default setting?


D.S.

*** Sent via Developersdex http://www.developersdex.com ***