Kopie speichern excel wie auch CSV-Dateien ?

Sub KopieSpeichernSelbesVerz()
Dim sPath As String, sFile As String, sName As String, Tagesdatum As String
Dim sEndung As String
Dim iWortlaenge As Integer
Dim iStellePunkt As Integer
sPath = ActiveWorkbook.Path  'im gleichen Verzeichnis
user = Environ("username")
Tagesdatum = Application.Text(Now(), "yymmdd-hhmmss")
If Right(sPath, 1)  "\" Then
sPath = sPath & "\"
End If
iStellePunkt = InStrRev(ActiveWorkbook.Name, ".")                 ' Anzahl Zeichen vor dem  _
letzten Punkt
sName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)   'von 4 auf 5 geändert  und  _
unten &"."  ergänzt
iWortlaenge = Len(ActiveWorkbook.Name)                            ' Anzahl Zeichen des  _
Dateinamens
sEndung = Right(ActiveWorkbook.Name, iWortlaenge - iStellePunkt)  ' Dateiendung wird extrahiert
sFile = sName & "_" & Tagesdatum & "_" & user & "." & sEndung
ActiveWorkbook.SaveCopyAs sPath & sFile
End Sub