Abrir archivo xml con un nombre temporal y evitar errores

Qué tal foreros?

Sub UseOpenXML()

Application.Workbooks.OpenXML _

Filename:="customers.xml", _

LoadOption:=xlXmlLoadImportToList

End Sub

[/CODE]

En este comando, quiero saber como abrir el archivo con un nombre que no cambie jamás. Lo tengo dentro de un loopy el nombre debiese quedar igual independiente del nombre. Luego de abrir, cierro el archivo creado sin guardarlo, pero si necesito que ese archivo se llame siempre "Book1.xls" o algo así.Les agradeceré que me enseñen cómo se hace. Saludos.