Dim myCom As Object
Set myCom = Sheets("Spieler").Range("A1").AddComment
With myCom
.Visible = True
.Text Text:="ABC"
.Shape.Height = 50
.Shape.Width = 40
End With
lg Matthias
Dim myCom As Object
Set myCom = Sheets("Spieler").Range("A1").AddComment
With myCom
.Visible = True
.Text Text:="ABC"
.Shape.Height = 50
.Shape.Width = 40
End With
lg Matthias