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
|