Salve

Sarei grato a chiunque riuscisse ad aiutarmi a risolvere questo mio problema.
Ho creato un piccolo File Excel (2007) in cui con una macro (a seguire il codice)
controllo il valori nel range A1:A10 e nel caso di immissione di un valore
qualsiasi in una delle celle, viene scritto nell'equivalente riga in colonna E
"Ok" altrimenti "No".

Vorrei riprodurre la stessa macro in OpenOffice 3.2 ma non riesco in alcun modo
... la macro non parte al variare dei valori nelle celle sopra indicate
oppure se vado in debug, mi viene restituito un errore di runtime basic
(l'argomento non è opzionale) col cursore sull'istruzione "If Not Intersect....")
Qualcuno che ha esperienza puo' aiutarmi?

La macro scritta in Excel è la seguente:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Select Case Target.Cells.Value
Case Is <> ""
Target.Cells(1, 5).Value = "Ok"
Case Is = ""
Target.Cells(1, 5).Value = "No"
End Select
End If

End Sub


Grazie per l'aiuto