Hallo liebe VBA-Freunde!

Ich möchte via meinen Ribbon die Prozedur starten, dass das aktive Tabellenblatt in eine neue Mappe kopiert wird und aber gespeichert wird wo die Herkunft des Tabellenblattes ist. 

Mein Problem ist, dass das aktive Blatt dort gespeichert wird, wo die .xlam (Ribbon Add-in) gespeichert ist.

Der Code lautet:

Sub BlattKopierenNeueMappe(control As IRibbonControl)

Dim X As String
       X = ActiveSheet.Name
    

Application.ScreenUpdating = False

ActiveSheet.Copy

With ActiveWorkbook
    
    .SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1)) & " - " & X & ".xlsx"

End With

Application.ScreenUpdating = True

End Sub

Danke für eure Hilfe!