Error al ejecutar macro excel 2003 en 2007

[buenas tardes,

A ver si alguien me echa una mano con esta macro en excel 2003 (donde funciona perfectamente) y al ejecutarla en 2007 me da un error '9' en tiemp de ejecución

La macro, lo que hace es copiar hojas de un libro a otro libro con el mismo nombre que la hoja.

Señalo la sentencia donde da el error

]Sub Macroañadehojafichero()

ruta = ActiveWorkbook.Path

nomor = ActiveWorkbook.Name

For h = 1 To Sheets.Count

nomh = Sheets(h).Name

On Error Resume Next

Workbooks.Open Filename:=ruta & "\" & nomh & ".xls"

nh = Sheets.Count

Windows(nomor).Activate

Sheets(nomh).Copy After:=Workbooks(nomh).Sheets(nh)

Sheets(nomh).Name = "PRUEBA"

Sheets("Franquicia").Select

Range("B2").Select

ActiveWindow.Close (1)

Next h

End Sub

Gracias anticipadas y un saludo