excel vba mac - Mismatch or Range error -

excel vba mac - Mismatch or Range error -

the code below gives either mismatch or range error in excel 2008. how prepare it?

sub pec() dim pec string, result integer pec = range("ae2:ae26848").value if pec = "a.06" result = 1 range("ao2:ao26848").value = result end sub

sub pec() x = 2 26848 if range("ae" & x) = "a.06" range("ao" & x) = 1 next x end sub

range excel-vba-mac excel-2008