REM  *****  BASIC  *****


Sub Main
	Dim sheet As Object
	Dim cellRange As Object

    sheet = ThisComponent.Sheets.getByIndex(0)
    cellRange = sheet.getCellrangeByName("A1:B1")

    oListener = createUnoListener("Modify_","com.sun.star.util.XModifyListener")
    cellRange.addModifyListener(oListener)
End Sub

Sub Modify_modified(oEv)
	Dim sheet As Object
	Dim oCellA1 As Object
	Dim oCellB1 As Object
	Dim nSum As Double

	sheet = ThisComponent.Sheets.getByIndex(0)
	oCellA1 = sheet.getCellRangeByName("A1")
	oCellB1 = sheet.getCellRangeByName("B1")

	nSum = oCellA1.getValue() + oCellB1.getValue()

	MsgBox "Сумма ячеек: " & nSum
End Sub