Не запускается макрос в OpenOffice

[choknutii]

Здравствуйте, в excel всё хорошо но в openoffice выдаёт ошибку "Синтаксическая ошибка BASIC" на строчке "With New Collection"
. Подскажите как исправить
[NO PARSE]Sub Extract_Unique()
Dim x, avArr, li As Long
Dim avVals
Dim rVals As Range, rResultCell As Range

On Error Resume Next

Set rVals = Application.InputBox("Укажите диапазон ячеек для выборки уникальных значений", "Запрос данных", "Журнал_контроля!$D$10:$D$50", Type:=8)
If rVals Is Nothing Then
Exit Sub
End If

If rVals.Count = 1 Then
MsgBox "Для отбора уникальных значений требуется указать более одной ячейки", vbInformation, " "
Exit Sub
End If

Set rVals = Intersect(rVals, rVals.Parent.UsedRange)

If rVals Is Nothing Then
MsgBox "Недостаточно данных для выбора значений", vbInformation, " "
Exit Sub
End If
avVals = rVals.Value

Set rResultCell = Application.InputBox("Укажите ячейку для вставки отобранных уникальных значений", "Запрос данных", "$B$9", Type:=8)
If rResultCell Is Nothing Then
Exit Sub
End If

ReDim avArr(1 To Rows.Count, 1 To 1)

With New Collection
On Error Resume Next
For Each x In avVals
If Len(CStr(x)) Then
.Add x, CStr(x)

If Err = 0 Then
li = li + 1
avArr(li, 1) = x
Else

Err.Clear
End If
End If
Next
End With

If li Then rResultCell.Cells(1, 1).Resize(li).Value = avArr
End Sub
[/NO PARSE]

[kuklp]

А ничего, что форум называется: "Microsoft Office и VBA > Microsoft Office Excel"?
Где Вы тут увидели про OpenOffice? Не говоря уж о том что код надо оформлять тегами.

[Aleksandr H.]

choknutii, вам туда