Comments Merge cells in Excel

[Lucas]

Macro Macro7

Code:

Copy      Help

ExcelSheet es.Init

Excel.Range r=es.ws.Application.Selection
out r.Comment.Text

This code works when cell A1 is selected; return the comment.

When A1 and B1 are merged

The code fails and return

Error (RT) in Macro7: invalid interface pointer. Use _create or other function to create or get object

Do you know why?