Renommer mon fichier comme son unique onglet en vba

Bonjour,

J'ai créé la macro ci-dessous qui me permet d'exporter un onglet dans un nouveau classeur que j'aimerai enregistrer dans le même dossier que son fichier d'origine, mais en le renommant sous le même nom que son onglet.

Ici j'avais mis provisoirement "DS" pour le nom de fichier le temps de créer la première partie de la macro. Mais je ne parviens pas a trouver le bon code pour remplacer DS par le nom de mon onglet.

Pouvez-vous m'aider svp ?

Par avance merci.

Sub Exporter()
Dim WbkDst As Workbook
ThisWorkbook.Sheets("1").Copy
Set WbkDst = ActiveWorkbook
WbkDst.SaveAs Filename:=ThisWorkbook.Path & "\DS.xlsx", _
  FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
WbkDst.Close
End Sub
Windows / Edge 123.0.0.0