Cell Comment Box Cutting Off Text Using Shape.Width

[mmnunn]

hello, i am having trouble getting my comment box to autosize and then shrink to a square showing the entire set of text. in the below code if i delete the "shape.width = 430" portion i get an autosize that works correctly to show all text but it stretches the box to be thin and very long. using "shape.width = 430" shrinks the box to be entirely visible on the page but it is cutting off text at the bottom that i want to see. any advice is greatly appreciated.

Public Sub add_comment_box()
For i = 2 To finalrow
    Connect = Cells(i, 2).Value & "_" & DealName
    iVal = Application.WorksheetFunction.CountIf(Range("O2:O100"), Connect)
    If iVal > 0 Then
        Comments = Cells(14, 6).Value
        Cells(i, 4).Select
        With Selection
            .AddComment Comments
            .Comment.Shape.TextFrame.Characters.Font.Size = 12
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ' this will autofit the comment box to be just the size of the text inside.
            .Comment.Shape.TextFrame.AutoSize = True
            .Comment.Shape.Width = 430
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        End With
        Else: GoTo skip 'next i
    End If
    Cells(14, 6).ClearContents
    
skip:
Next i
End Sub