application-defined or object-defined error

[Obey177]

Sub Comment()

Dim i As Long, j As Long, g As Long, colonend As Long
colonend = Sheets("RDY_DATA").Cells(Rows.Count, 3).End(xlUp).Row
colonend2 = Sheets("SW_DATA").Cells(Rows.Count, 3).End(xlUp).Row
NumberMass = Sheets("SW_DATA").Cells(Rows.Count, 2).End(xlUp).Row
g = 2
For b = 2 To NumberMass
Set NumberName = Worksheets("SW_DATA").Cells(b, 2)
For a = 2 To colonend2
Set NameMode2 = Worksheets("SW_DATA").Cells(a, 3)
For i = 2 To colonend
For j = 8 To Worksheets("RDY_DATA").Cells(i, Columns.Count).End(xlToLeft).Column
Set NameMode = Worksheets("RDY_DATA").Cells(i, j)
If NameMode.Value = NameMode2.Value Then
    Worksheets("RDY_DATA").Cells(i, j).AddComment
    Worksheets("RDY_DATA").Cells(i, j).Comment.Visible = False
    Worksheets("RDY_DATA").Cells(i, j).Comment.Text Text:="Íîìåð â ìàññèâå: " & "2 -" & NumberName
    Worksheets("RDY_DATA").Cells(i, j).Select
End If
Next
Next
Next
Next

End Sub

Ребят в чем проблема не пойму выдает ошибку application-defined or object-defined error

[Казанский]

На какой строке?
Лучше приложите файл XLS.

[Obey177]

уже сам додумался причина была в не стертом заранее примечание

Sub Comment()

Dim i As Long, j As Long, g As Long, colonend As Long
colonend = Sheets("RDY_DATA").Cells(Rows.Count, 3).End(xlUp).Row
colonend2 = Sheets("SW_DATA").Cells(Rows.Count, 3).End(xlUp).Row
g = 2
For a = 2 To colonend2
NumberName = a - 2
Set NameMode2 = Worksheets("SW_DATA").Cells(a, 3)
For i = 2 To colonend
For j = 8 To Worksheets("RDY_DATA").Cells(i, Columns.Count).End(xlToLeft).Column
Set NameMode = Worksheets("RDY_DATA").Cells(i, j)
If NameMode.Value = NameMode2.Value Then
    Worksheets("RDY_DATA").Cells(i, j).ClearComments
    Worksheets("RDY_DATA").Cells(i, j).AddComment
    Worksheets("RDY_DATA").Cells(i, j).Comment.Visible = False
    Worksheets("RDY_DATA").Cells(i, j).Comment.Text Text:="Номер в массиве: " & "2 -" & NumberName
End If
Next
Next
Next

End Sub