Tooltips in Excel

[punterweger]

Does anyone know how to code tooltips for cells in excel using Progress code?

 

[sphipp]

def var cellrange as char initial "A1" no-undo.
def var excelappl as com-handle no-undo.

excelAppl:Range(cellrange):formula:clearcomments().
excelAppl:Range(cellrange):formula:addcomment("This is a comment").