Grazie Afazio per la risposta. Riporto di seguito il codice da utilizzare.
Global oCell(0)
Global oListener
'La seguente procedura MAIN deve essere aggiunta all'evento di apertura del documento tramite strumenti/personalizza
Sub Main
add_cell_listener("A1") 'richamo la procedura che crea il listener, posso richiamarla su tutte le celle che mi interessano
risposta = MsgBox("Parte il listener, l'ascoltatore", 48, "Attenzione")
'all'apertura del file compare semrpe questo messaggio
End Sub
Sub add_cell_listener (cell_id As String)
Dim oSheet
Dim i As Integer
i = ubound(oCell) + 1
Redim Preserve oCell(i)
oSheet = thisComponent.Sheets("Sheet1")
oCell(i) = oSheet.getCellRangeByName(cell_id)
oListener = CreateUnoListener( "CELL_", "com.sun.star.chart.XChartDataChangeEventListener" )
oCell(i).addChartDataChangeEventListener(oListener)
End Sub
Sub CELL_chartDataChanged
risposta = MsgBox("FUNZIONA!!!", 48, "Attenzione") 'inserire il richamo ad una aprticolare macro che gestirà le azioni da eseguirsi alla variazione della cella A1
end sub