Thanks for help. It gives me (Run-time error "70": Permission denied).
Code:
ActiveWorkbook.Save
    FileCopy ActiveWorkbook.FullName, "F:\WorkUpdates\" & ActiveWorkbook.Name