VB not working in Mac Excel 04. Works fine in Windows Excel

[umopapisdn]

Sorry if this is in the wrong section, Mods pls move it if it is.

Hi, I have this code working fine on Windows Excel. AFAIK it should work fine with Mac Excel 2004. Currently it throws up and error saying type mismatch on line 11 .
Does anyone know what is going on?

1. Public Function NumPPLNumeric() As Integer
2. Dim Y As Variant
3. Dim intRow As Integer
4. Dim intCol As Integer
5.
6. intRow = 1
7. intCol = 1
8.
9. Y = Range("weight").Offset(intRow, -3).Value
10.
11. Do While (Y > 0 And Y <> " ")
12. NumPPLNumeric = NumPPLNumeric + 1
13. intRow = intRow + 1
14. Y = Range("weight").Offset(intRow, -3).Value
15. Loop
16.
17. End Function