Hi John,
If you Want to Make the comment TextFrame a particular height and
width you could use something like the following which resizes the
comment in A1 of the activesheet to a height of 50 points and a width
of 100 points:


On Error Resume Next 'Stop error when no comment
With ActiveSheet.Range("A1").Comment.Shape
.Width = 100
.Height = 50
End With
On Error GoTo 0

Alternatively, if you just want the comment textframe to automatically
accommodate a different size comment you could just use:

On Error Resume Next 'Stop error when no comment
Activesheet.Range("A1").Comment.Shape.TextFrame.Au toS*ize = True
On Error Goto 0

Hope this is useful
Ken Johnson