I need some help (am not a macro writer) with the following macro which worked under Excel 97 but will not work under Excel 2003. I inherited the file from someone who is no longer available to fix it. Can anyone out there figure out what is wrong by looking at it?
Function Skins(cellref1)
S = 0
r = cellref1.Row
skin = cellref1.Value
For i = 4 To 15
If Cells(r, i).Value = skin Then
S = S + 1
End If
Next
If S = 1 Then
Skins = 1
Else
Skins = 0
End If
End Function

Function WHO(cellref1, cellref2, cellref3)
r = cellref1.Row
WHO = " "
score = cellref1.Value
r2 = cellref3.Row
If cellref2.Value = 0 Then GoTo lastline
For i = 3 To 15
If Cells(r, i) = score Then WHO = Cells(r2, i).Value
Next
lastline:
End Function
'
Function F9PRS(cellref1, cellref2)
r = cellref1.Row
rend = r + 9
c = cellref1.Column
c2 = cellref2.Column
F9PRS = 0
For i = r To rend
If Abs(Cells(i, c)) = 2 Then
F9PRS = Cells(i, c2) + 1
Exit For
End If
Next
End Function

Function b9PRS(cellref1, cellref2)
r = cellref1.Row
rend = r + 9
c = cellref1.Column
c2 = cellref2.Column
b9PRS = 0
For i = r To rend
If Abs(Cells(i, c)) = 2 Then
b9PRS = Cells(i, c2) + 1
Exit For
End If
Next
End Function

If you need the whole Excel file, I can send it if you can help me fix it.
Thanks.