Kommentare aus mehreren Dateien in eine übertragen

Public Sub CopyComment()
Dim x As Long
Dim objCell As Range
Dim arrDatei(1 To 4) As String
arrDatei(1) = "Planung HA.xls"
arrDatei(2) = "Planung BE.xls"
arrDatei(3) = "Planung KF.xls"
arrDatei(4) = "Planung MÜ.xls"
For x = 1 To 4
Windows(arrDatei(x)).Activate
For Each objCell In Worksheets("Tabelle2").Cells.SpecialCells(xlCellTypeComments)
Workbooks("abc.xlsm").Worksheets("Tabelle2").Range(objCell.Address).AddComment objCell.  _
_
Comment.Text
Next
Next x
End Sub