[Solved] Another Listener Problem

[nckeeley]

I've searched dozens of topics on the subject, but I still can't quite figure out what I'm doing wrong. I have a named range called "inputs" on Sheet1. When a value in that range changes, I get the message box popping up dozens of times before it disappears. Any help is much appreciated!

Code: Select all

'Gets spreadsheet to update as inputs change
Public oListener as Object
Public CellRng as Object

Public Sub AddListener
Dim Doc, Sheet, Cell as Object
Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Sheet1")
CellRng = Sheet.getCellrangeByName("inputs")
oListener = createUnoListener("Modify_","com.sun.star.util.XModifyListener")  'create a listener
Cellrng.addModifyListener(oListener)  'register the listener
End Sub

Public Sub Modify_modified(oEvent)  'macro jumps here when oListener detects modification of Sheet
Call Calcs
End Sub

Public Sub Modify_disposing(oEvent)
End Sub

Public Sub ClearListener
Cellrng.removeModifyListener(oListener)  'remove the listener
End Sub

Public Sub Calcs
MsgBox "Something changed!"
end sub

[JeJe]

How many times did you run the AddListener sub? Close and reload OO and run it once only and see how many times you get the msgbox.

Edit:
I tested with the attached document - no problem.

[nckeeley]

Thank you JeJe...