Guardar como web en Excel 97

Hola a todos:

Tengo una macro creada en Excel 2000 que, entre otras cosas, guarda cada
hoja del libro con formato web... La parte de la macro que ejecuta esta
operación es esta:

Application.ScreenUpdating = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Copy
ActiveWorkbook.SaveAs ActiveSheet.Name, FileFormat:=xlHtml
ActiveWorkbook.Close
Next

La macro funciona perfectamente en mi ordenador que tiene instalado la
versión 2000 de Excel... Sin embargo, al ejecutarla en el ordenador de otro
compañero que tiene la versión 97 da un error 1004 en la línea relativa a
"...FileFormat:=xlHtml..."

¿Podría alguien decirme qué tengo que cambiar para que funcione en la
versión 97?...

Gracias por anticipado...