Attempting to write a Comment with
Sub WriteComment(r as Range, T)
with r
if not .Comment is Nothing Then
.comment.Delete
end if
.addComment T
end with
End Sub
And I call this with
Dim CRange as Range
Set CRange = WorkSheets(SheetName).cells(RowNumber,ColoumLetter)
WriteTheComment cRange...