Thanks for the input.
Yes, I want the file GONE.
They would have to reload it from their CD in order to use it a 2nd time.

1: The following layout gives me a 'compile error - Expect end of sub.
2: If I could trouble you to check the rest over. I'm having difficulty in
two
locations, as marked <<<===
I feel I've made a real mess of this one, although it seems to (almost) work.

Sub QCNum_Updater()
' QCNum_Updater Macro
Dim myQCNum As Workbook
Dim myQCNum_1 As Workbook
Dim myQCNum_OLD As Workbook
Dim myQCNum_Updater As Workbook
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Call GetInstructions

Set myQCNum = Workbooks.Open("C:\Excel Add_Ins\QCNum.xls")

With myQCNum
.SaveAs (["QCNum_OLD"])
.Close SaveChanges:=True
End With

Set myQCNum = Workbooks.Open("C:\Excel Add_Ins\QCNum.xls")
Set myQCNum_1 = Workbooks.Open("C:\Excel Add_Ins\QCNum_1.xls")

' TO (QCNum_1), then (QCNum) FROM: Sheet 1, D6 = Salesmans Code Number
' Sheet 2, G3 = Current Contract Number

myQCNum_1.Worksheets("Sheet1").Range("D6").Value = _
myQCNum.Worksheets("Sheet1").Range("D6").Value

myQCNum_1.Worksheets("Sheet2").Range("G3").Value = _
myQCNum.Worksheets("Sheet2").Range("G3").Value

With myQCNum_1
.SaveCopyAs (["C:\Excel Add_Ins\QCNum.xls"]) '<<=Does not want to
work
.Close SaveChanges:=True
End With

'Delete Existing QCNum_1 File
' Kill "C:\Excel Add_Ins\QCNum_1.xls" '<<<==== Works Great!!

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Call Complete

' On Error GoTo ErrorHandler
With ActiveWorkbook
If .Path < "" Then
.Saved = True
.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
End If
End With
Exit Sub

'ErrorHandler: MsgBox "Fail to delete File:" & ActiveWorkbook.FullName
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

'Exit Sub



"Christmas May" wrote:

Bob,

As a friendly suggestion, the error handler message box mentions "delete"ing
the file. I don't believe the code you posted actually "deletes" the file,
instead, it just unloads it, kills it, etc. If the file were "deleted" I
would not be able to open/run the file at a later date. Unloading/Killing
the file simply means I would need to load it from storage(disk) again at my
convienience.

Sincerely,

Christmas May



"Bob Phillips" wrote:

On Error GoTo ErrorHandler
With ActiveWorkbook
If .Path < "" Then
.Saved = True
.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
End If
End With
Exit Sub


ErrorHandler:
MsgBox "Fail to delete file: " & ActiveWorkbook.FullName
Exit Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BEEJAY" wrote in message
...
Have a file I call Updater. Sent out with File F2
Updater takes info from F1, copies to F2.
When process complete, I'd like Updater to be killed,
but it is the active workbook.
Is there a way to kill a file on closing?