Thanks for looking.

Im having trouble getting the code to FileCopy the active workbook. Any suggestions? Thanks again

ActiveWorkbook.save
On Error Resume Next
Kill "C:\VBA Code\Book5.xls"
On Error GoTo 0
FileCopy :="ActiveWorkbook", Destination:="C:\VBA Code\Book5.xls"
End Sub