Range("AC4").AddComment "Text blabla bla "
Wenn ich es auf diesem Weg probiere, dann bricht das Makro ab.
Range("AC4").Select
Range("AC4").Comment.Text Text:="Text blabla bla"
Selection.ShapeRange.ScaleWidth 1.02, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.84, msoFalse, msoScaleFromTopLeft