Option Explicit

Sub SaveActiveWorkbookAsXlsx()
  
  With ActiveWorkbook
    
    Dim strPath As String
    Dim strNewName As String
    
    'Dateipfad mit Backslash am Ende
    strPath = IIf(Right$(.Path, 1) <> "\", .Path & "\", .Path)
    'Dateiname ohne Dateiendung
    strNewName = IIf(InStrRev(.Name, ".") > 0, Left$(.Name, InStrRev(.Name, ".") - 1), .Name)
    
    Call .SaveAs(Filename:=strPath & strNewName, FileFormat:=xlOpenXMLWorkbook)
    
  End With
  
End Sub

Hinweis: Die Dateiendung ergibt sich aus dem angegebenen FileFormat.

Wie ralf_b bereits anmerkte, man muss die Doku genau lesen (den Teil mit welche Methode hat welche Parameter).

Grüße