Comments Merge cells in Excel

[Gintaras]

Macro Macro1288

Code:

Copy      Help

ExcelSheet es.Init

Excel.Range r=es.ws.Application.Selection
;out r.Comment.Text ;;error
;out r.Cells.Count ;;>1 for merged cells

r=r.Cells.Item(1 1) ;;get top-left cell
out r.Comment.Text

;there are multiple cells in the merged cells.
;get comment of the first cell.