try changing .clearcontents to .select and see if it still trips up.
Probably best to step through the code with F8. The implication in the
error message is that there IS a problem with ClearContents.

None of those cells is protected it it? I get error 1004 if they are,
but excel2003 reports that fact along with the error number - maybe
xl97 isn't so explanatory..