FWIW
I've taken to using this for a change and for this post included the
property mentioned:

For Each com In Cells.SpecialCells(xlCellTypeComments)
With com.Comment.Shape
With .TextFrame
With .Characters.Font
.Name = "comic sans ms"
.Size = 12
.Color = vbBlack
End With
.AutoSize = True
End With
.Fill.ForeColor.RGB = vbCyan
.IncrementTop 50
End With
Next

Of course IncrementTop will apply to ALL comments at that point and also as
the name suggests it is incremental from its last position. I'm afraid I
haven't been able to do anything beyond that.

Geoff

"Carroll" wrote:

Thanks Geoff.