CSV Datei in Excel 97

Sub Makro1()
'    Makro zum einlesen, bearbeiten und abspeichern    *
'         von Übergabedateien ins CSV-Format           *
'## Ausschalten der Meldungen (Gewährleistet Durchlauf des Makro)
Application.DisplayAlerts = False
'## Suchen und öffnen von xls File aus bestimmten Ordner
'## Trennzeichen Semicolon gesetzt
Workbooks.OpenText Filename:="C:\temp\*.xls", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False
'## Anlegen einer Sicherungsdatei
Dim sichFileName As String
sichFileName = Format(Now, "yyyymmdd")
ActiveWorkbook.SaveCopyAs "C:\Temp\sich\" + sichFileName + "sicherung.xls"
'## Bearbeitung der File (Zeile löschen ect.)
'## Speichern der Datei im Datumsformat mit anhang "_uebergabe"
'##                                als CSV in bestimmten Ordner
Dim sFileName As String
sFileName = Format(Now, "yyyymmdd_hhmmss") + "_uebergabe"
ActiveWorkbook.SaveAs "C:\temp\" + sFileName, _
FileFormat:=xlCSV, CreateBackup:=False
'## Schließen von Excel
Application.Quit
'## Löschen der Eingabe xls
Kill "C:\Temp\*.xls"
End Sub