Hi Gibbo,
A minor adjustment to johnske's code to do this
[VBA]
Sub CopyEm()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
'set your paths below
FSO.CopyFile "C:\Location\12345*.xls", "C:\NewLocation\"
Set FSO = Nothing
End Sub

[/VBA]