Code: Select all
AddComment(XL,LineNumber,Comment) {
;Get current text in cell
CurrentText := XL.ActiveSheet.Range("W" LineNumber).Value
;Add new full comment
XL.ActiveSheet.Range("W" LineNumber).Value := CurrentText "Need someway to add new line (Alt+ENTER) here" Comment
}