Sub Moving_Files()
Dim oFS As FileSystemObject
' Easiest way
FileCopy "c:\temp\IamAStar.xls", "c:\temp\backup\IamAStar.xls"
Kill "c:\temp\IamAStar.xls"
' Using File System Object - You need to Include Microsoft Scripting Runtime in you references
Set oFS = New FileSystemObject
oFS.MoveFile "c:\temp\D8C7I12.xls", "c:\temp\backup\D8C7I12.xls"
End Sub