Mover Archivos y crear carpetas Excel

Hola, tengo gran candidad de archivos excel que necesito clasificar, estoy
tratando de hacer una macro que me cree un carpeta por cada nombre de archivo
.xls y que se almacene este archivo en su correspondiente carpeta.
He intentado con el codigo de esta pagina:

http://www.teladearana.es/seccion/e...excel.html

He conseguido crear las carpetas, pero el codigo pra mover los archivos no
me ha funcionado.

¿Puede alguien ayudarme?
Muchas Gracias