Hallo Sabi

Du könntest sowas in betracht ziehen:

Dateiname = AktiveMappe.Name
    If InStr(Dateiname, ".") > 0 Then
       Dateiname = Left(Dateiname, InStr(Dateiname, ".") - 1)
    End If
closefile = Pfad & "\" & Dateiname & Datum & ".xlsx"
AktiveMappe.SaveAs Filename:=closefile, FileFormat:=51