Come posso utilizzare delle macro create per excel anche in openoffice 2.4 ???

Ho provato a inserirle così come sono ma mi da sempre errore..

run time basic ecc...

Una delle macro (per esempio) potrebbe essere questa :

Sub evidenzia()
Dim cella As Range
Dim str As String
For Each cella In Selection.Cells
If cella.Value = 4 Then
rifer = ActiveSheet.Cells(cella.Row, cella.Column).Address(False, False)
str = str & "," & rifer
End If
Next cella
str = Mid(str, 2, Len(str))
Range(str).Select
End Sub


in excel funziona benissimo in openoffice 2.4 no :master: come potrei adattarla al fine di farla funzionale anche con l'altro programma di fogli di calcolo?

THANKS