AutoSize eines Kommentarfeldes funktioniert nicht

Public Sub KommentarEinfügen(ByVal Kommentar As Range, ByVal Ziel As Range)
Dim i As Integer
Dim filltxt As String
If Kommentar.Rows.Count  Ziel.Columns.Count Then
'Fehlermeldung XXX
Exit Sub
End If
For i = 1 To Ziel.Columns.Count
filltxt = Kommentar.Cells(i, 1).Text
If Ziel.Cells(1, i).comment Is Nothing And Len(filltxt) > 0 Then
Ziel.Cells(1, i).AddComment filltxt
Else
Ziel.Cells(1, i).comment.Delete
Ziel.Cells(1, i).AddComment filltxt
End If
'Das klappt:
Range(Ziel.Cells(1, i).Address).comment.Shape.TextFrame.HorizontalAlignment = xlRight
'Das klappt nicht:
Range(Ziel.Cells(1, i).Address).comment.Shape.TextFrame.AutoSize = True
'Das klappt sonderbarerweise ...
Worksheets("BM-BasisM").Range("CV9").comment.Shape.TextFrame.AutoSize = True
'Andere Versuche:
'Ziel.Cells(1, i).comment.Shape.TextFrame.AutoSize = True
'Ziel.Cells(1, i).comment.Shape.OLEFormat.Object.AutoSize = True
'Für das Ein- bzw. ausblenden einer Spalte ist es wichtig,
'dass die Objektpositionierung in den Eigenschaften auf:
'"Von Zellposition und -größe abhängig" (xlMoveAndSize) gesetzt ist
Ziel.Cells(1, i).comment.Shape.Placement = xlMoveAndSize
Next
End Sub