Try replacing the second line with this

Code:
ActiveWorkbook.SaveCopyAs "F:\Update\" & ActiveWorkbook.Name