Open Office Macro de VB a macro de open office

Imagen de tanquiol

Forums: 

Buenas tardes Comunidad

tengo una macro en office 2003

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Union(Range("A9:A10000"), Target).Address = Range("A9:A10000").Address _
Then ActiveSheet.Calculate
End Sub

Quiero pasarlo y ponerlo en openoffice 3.2 estoy en etapa de migracion y este reporte es importante ojala tenga solucion