cell comments

Check out this earlier post on this forum

http://ozgrid.com/forum/viewthread.php?tid=235

Search for comments

Hi

This should be useful, i wrote this to cove most issues, has been popular so I hope will be of help to you also

Jack in the UK

Code
Sub Jacks_SpecialCommentBox()

' Creates the comment.
ActiveCell.AddComment ("")
' Can have user name in top left by adding name between ""
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select

With Selection
'Chooses the CLOUD AutoShape from Drawing T/Bar.
.ShapeRange.AutoShapeType = _
msoShapeCloudCallout

'decides to have col(u)rs in the cloud.
.ShapeRange.Fill.PresetGradient _
msoGradientHorizontal, 1, _
msoGradientHorizon

' BOLD and Italics, felt like it!
.Font.Name = "Arial"
.Font.FontStyle = "Bold Italic"

' moves and resizes the cloud - wanted to!
Selection.ShapeRange.Adjustments.Item(1) = -1.1562
Selection.ShapeRange.ScaleWidth 1.4, msoFalse, msoScaleFromTopLeft

End With

End Sub