Visual Basic para Aplicaciones - No Funciona el Win 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.

depurá el código en XP y vas a dar con el problema (F8 paso a paso)
quizá no se crea el objeto Excel.Application...

Saludos desde Baires, JuanC

Lo que me llama mucho la atencion es que si abre el archivo la rutina OpenFile si funciona perdon por no especificarlo. El detalle es para cerrarlo es donde realmente no funciona.Se me hace bastante raro.no se si ahora con esto me puedan orientar un poco mas y tratare con F8 para ver que pasa:Saludos Y Gracias,

Lo que me llama mucho la atencion es que si abre el archivo la rutina OpenFile si funciona perdon por no especificarlo. El detalle es para cerrarlo es donde realmente no funciona.Se me hace bastante raro.no se si ahora con esto me puedan orientar un poco mas y tratare con F8 para ver que pasa:Saludos Y Gracias,