View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected] halimnurikhwan@yahoo.com is offline
external usenet poster
 
Posts: 113
Default delete workbook from one location and save workbook to new locatio

Hi Damien,
May be you can try this :
Sub DeletethenSaveFile()
Dim Range As String, Addr as string, Proj as string
Proj = Sheets("Form").Range("$F$10")
Addr = "Blah Blah Blah" & Range(Proj) & "2.xls"
MsgBox "The requested file has been deleted"
ThisWorkbook.SaveCopyAs "Blah Blah Blah" & Range("Proj") & "2.xls"
Kill Addr 'To kill or delete old file after copying it
MsgBox "Your file has been saved to it's new location"
End Sub