VB excel 2003

Bonjour,

Dans excel, je désire ouvrir puis fermer tous les fichiers .xls qui se trouve dans un même répertoire.
Exemple :

Workbooks.Open Filename:= _
"D:\temp\AB.XLS"
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\temp\AC.XLS"
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\temp\AD.XLS"
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\temp\AE.XLS"
ActiveWindow.Close

Etc.
Jusque fin répertoire

Quelqu’un connaît-il une formule VB qui permettrait de le faire ?

Merci pour toute aide.