Sheet Events - Content Change - Multiple Ranges Selected

users
#1

Hi all,

this is my first e-mail in this mailing-list.

i've create this macro.

Sub SheetContentChange(oCallingCell)
     Dim addr as variant: addr = oCallingCell.getRangeAddress()
     Dim col, row as integer

     For col = addr.StartColumn to addr.EndColumn step 1
         For row = addr.StartRow to addr.EndRow step 1
CellContentChange(ThisComponent.CurrentController.ActiveSheet.getCellByPosition(col, row))
         Next row
     Next col
End Sub

this macro start on Sheet Events - Content Change.

It's receive a Cell, if I select a range (single range - For example F5-F12), it's works.
But if I select multiple ranges, for example f5-f12;h30-h32, I get error.

Someone could, please, help me ?

Thanks a lot.