run time error 13

[mike allen]

i created code in excel 2000 and it runs fine. i sent it to someone else
who has, i think, excel 97, possibly earlier, and it doesn't work. he gets
'run time error 13'. the code is short and simple and the only parts that
could possibly not transfer into '97 are match or chr(10).

Sub playersstats()
myMessage = ""
For i = 17 To 31
currentplayer = Sheets("input").Cells(i, 4)
rowonsheet = Application.Match(currentplayer,
Sheets("quotas").Range("a1:a5000"), 0)
myMessage = myMessage & currentplayer & " : new quota: " &
Sheets_("quotas").Cells(rowonsheet, 4) & Chr(10) & Chr(10)
Next i
MsgBox myMessage
End Sub
this seems to happen fairly often, where i can run code fine on my excel,
but others (presumably w/ older excels) have problems. any ideas? thanks,
mike allen

 

[Chip Pearson]

Mike,

What line in the code produces the error?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[mike allen]

under a scaled down version of code, after 'run time error 13' is 'type
mismatch'. i assume this is referring to 'application.match'. can you use
this function in excel 97?