Visual Basic - Porque no funciona en XP

Tengo estas rutinas para abrir y cerrar archivos de excel la situacion es que tengo en win vista y es donde lo estoy programado y aqui si me funciona pero no funciona en XP.¿ Me podrian ayudar de favor?

Sub Close_File()

'On Error Resume Next
objWB.Close False '(no salvo los cambios)
Set objWB = Nothing
ApExcel.EnableEvents = False
Set ApExcel = Nothing
'CloseExcel

End Sub

Sub OpenFile()

Set ApExcel = CreateObject("Excel.application")
On Error Resume Next
Set objWB = ApExcel.Workbooks.Open(App.Path & "Programacion Impresion.xls")
On Error Resume Next
ApExcel.Visible = True

End Sub

Saludos Y Gracias.

la version de los office son la misma?

No yo lo hice con el 2007 y de XP tiene el 2000. Sera por la referencia?

Saludos.

es la referencia de excel