for each file in dirlist("*.xls")
copy file dest
next

dirlist() is one of the udf's in the udf forum