Speichern im aktuellen Verzeichniss und xls-Format

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

datei = ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:=datei, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

Das Problem ist aber, dass die Mappe hier im Standartverzeichnis gespeichert wird.
Es soll aber im aktuellen Verzeichniss gepeichert werden. Also da wo die Mappe geöffnet wurde.

Ich wäre für jeden Ansatz dankbar.
Gruss
Klaus