Kommentare einfügen mit VBA

Sub com_insert()
Dim jj, zz As Integer
Dim cmt As Comment
Dim comments(100) As String
Sheets("Beschreibung").Select
With ActiveSheet
For jj = 10 To 100
comments(jj) = CStr(Cells(jj, 8).Value)
Next jj
End With
Sheets("Daten").Select
With ActiveSheet
For zz = 7 To 100
Set cmt = Cells(6, zz).Comment
Comment.Text = comments(zz) '-->Fehler: Objekt erforderlich
Cells(6, zz).AddComment
Next zz
End With
End Sub