Hilfe Makro geht auf dem Mac nicht

Sub Create_data_val_list()
Dim st As Object, son As Long, veri As Range
Set st = CreateObject("System.Collections.ArrayList")
son = Sheets("FKGesamt").Cells(Rows.count, "O").End(xlUp).Row
For Each veri In Sheets("FKGesamt").Range("O3:O" & son)
On Error Resume Next
If Len(veri) > 255 Then
MsgBox "Inconvenient value for the data validation list !", vbCritical, "Alert"
veri.Clear
End If
If Len(veri)