Sub codingcheck()
Dim x As Range
For Each x In Worksheets("Verbatims").Range("N2:AB500")
For Each y In Worksheets("Coding sheet").Range("E2:E500")
Z = Worksheets("Coding sheet").Range("B2:B500")
If x = y Then
Range("N2:AB500").Value.AddComment
Range("N2:AB500").Value.Comment.Visible = False
Range("N2:AB500").Value.Comment.Text (Z)
End If
Next j
Next i
Application.EnableEvents = True
End Sub
У меня есть диапазон ячеек, которые нужно добавить с несколькими комментариями, но если мой код в строке Range("N2:AB500").Value.AddComment
не принимает, но принимает как Range("N2").Value.AddComment