Hi
This i wrote some time back took a bit of time, has been refered to a few time, here you will see i JACK decided to have clouds me bing a tad flash i agree but the syntax you require re fonts size , font , and all is in here two, edit to your needs it god fun, VBA solution thats perfect, tested in E97 and Excel XP
HTH
Jack
PS i dedicate this VBA solution to all the readers who have list a close friend and miss them dearly, to your buddys, never forget them guys - love Jack
Sub Jacks_SpecialCommentBox()
' To those in our thoghts - Always!
' Jack 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
'Jack Chooses the CLOUD AutoShape from Drawing T/Bar.
.ShapeRange.AutoShapeType = _
msoShapeCloudCallout
'Jack decides to have col(u)rs in the cloud.
.ShapeRange.Fill.PresetGradient _
msoGradientHorizontal, 1, _
msoGradientHorizon
' Jack decides to have BOLD and Italics, felt like it!
.Font.Name = "Arial"
.Font.FontStyle = "Bold Italic"
'Jack 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