Help за макрос

Здравейте, интересува ме дали някой знае защо един макрос, който е писан в Visual Basic Editor на MS Excel, не сработва в Open Office. Ето го и самото макро:

Sub ab()
For Each a In Selection
If Not IsNumeric(a.Cells(1, 1).Value) Then
a.Cells(1, 1).Value = Chr(34) & a.Cells(1, 1).Value & Chr(34)
End If
Next
End Sub

В Ексел работи без проблем, докато Опенофис реве, че има Syntax Error и ми маркира втория ред и по-точно думата "Each". Има ли оправия и как става?

Ami tam niama for each :), zavurti go s broiach
dim i as long

for i = 0 to 7 - primerno
a.cell(1,i).value
next

napravi go taka :)