Try this function out.
Function fCopyFile(strFile1 As String, strFile2 As String)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strFile1, strFile2, True
End Function
Open the Immediate window or Debug window and type this in.
...