Apache OpenOffice: Foro oficial de la comunidad

Buenas tardes, tengo un problema para convertir una macro VBA y poder utilizarla en el OpenOffice de la oficina.
La macro toma el valor al seleccionar una celda dentro de un rango delimitado (B10:H15) y lo copia en otra celda (J7). Acudo a vuestro conocimiento porque no sé cómo lograr esto en lenguaje Basic . Copio la secuencia VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B10:H15")) Is Nothing Then
Range("J7") = Target.Value
End If

End Sub



Podrían ofrecerme alguna alternativa a esta macro?

Gracias!!