Datei schließen über VBA

Private Sub cmb_SEND_Click()
Dim wb As Workbook
ThisWorkbook.SaveCopyAs "C:\Dokumente und Einstellungen\IT_Budget_2005.xls"
Application.DisplayAlerts = False
Workbooks.Open "C:\Dokumente und Einstellungen\IT_Budget_2005.xls"
With ActiveWorkbook.Sheets("ENTBUDIT").Range("C1:D5")
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
With ActiveWorkbook
.Sheets("SETT").Delete
.Sheets("START").Delete
End With
Application.DisplayAlerts = True
Dim wks As Worksheet
Dim cb As Object
Set wks = ActiveSheet
'Löschen des Codes aus "Diese Arbeitsmappe"
With ActiveWorkbook.VBProject
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
'Löschen des VBA-Codes aus dem aktiven WS
With ActiveWorkbook.VBProject _
.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Löschen aller cmb_Buttons im aktiven WS
For Each cb In wks.OLEObjects
If TypeName(cb.Object) = "CommandButton" Then
cb.Delete
End If
Next cb
'Löscht Module im aktiven WB
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
End With
ActiveWorkbook.Sheets("ENTBUDIT").Range("A1").Select
ActiveWorkbook.Save
Dim dummy As Variant
Dim irow As Integer
dummy = SendNotesMail("IT_Bedarf 2005 / " & Sheets("ENTBUDIT").Range("C5").Value _
& " / " & Sheets("ENTBUDIT").Range("C4").Value, _
"C:\Dokumente und Einstellungen\IT_Budget_2005.xls", "TorstenK@TEST.de", "", True)
ActiveWorkbook.Close
Kill "C:\Dokumente und Einstellungen\IT_Budget_2005.xls"
MsgBox ("Die Datei wurde gesendet")
Application.ScreenUpdating = True
Else
End If
End Sub