Hi All
How to Insert Comment in Current Call and set then width.
below is records macro generate coding
How to programming ?

My coding stop at .Shape.Select.

Sub InsertComment()
With Cells(ActiveCell.Row, ActiveCell.Column)
.AddComment
.Comment.Visible = True
.Shape.Select
.ShapeRange.ScaleWidth 5.05, msoFalse, msoScaleFromBottomRight
.ShapeRange.ScaleWidth 1.24, msoFalse, msoScaleFromTopLeft
.Comment.Shape.Select True
End With

End Sub


Sub Macro1()
'

Range("S19").AddComment
Range("S19").Comment.Visible = False
Range("S19").Comment.Text Text:="e:" & Chr(10) & ""
Selection.ShapeRange.ScaleWidth 5.05, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.24, msoFalse,
msoScaleFromTopLeft
Range("S19").Comment.Shape.Select True
Range("S19").Comment.Text Text:="e:" & Chr(10) & "zxdfdf"
Range("S23").Select
End Sub