Make sure you have no spaces in the folder/filename.
OldName = "C:\OldFolder\SomeExample.xls"
NewName = "C:\NewFolder\SomeExample.xls"
retval = 0
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
retval = objFSO.CopyFile(OldName, NewName, True)
Set objFSO = Nothing
msgbox "Copy/paste complete"