Excel - For Each С In Selection.Cells

[.Quattro.]

У Excel.Application есть свойство Selection, которое содержит в себе выделенный диапазон.

xlApp: Automation 'Microsoft Excel 11.0 Object Library'.Application
xlRange: Automation 'Microsoft Excel 11.0 Object Library'.Range
-------------------------------
xlRange := xlApp.Selection;
MESSAGE(xlRange.Address);