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" <BEEJAY@discussions.microsoft.com> wrote in message
> > news:B0E65FD6-482B-46A1-87DB-CB98753144AD@microsoft.com...
> > > 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?
> >
> >
> >