Onglet prend le nom de la cellule

Bonjour tout le monde

Je reviens vers vous pour une petite question j'ai un classeur ou je rentre les données via un userform et a la validation je créer une feuille qui est enregistrer a part je souhaiterais que cette feuille prenne le nom de la cellule B7.

est ce faisable?

voici le code que j'ai créer je précise que je débute donc je fait ce que je peux

Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.PrintOut
    Sheets("Feuil1").Copy After:=Sheets(2)
    Sheets("Feuil1").Select
    Range("A54:I63").Select
    Selection.Copy
    Sheets("Feuil1 (2)").Select
    Range("A54:I63").Select
    ActiveSheet.Paste
    Sheets("Feuil1 (2)").Move
    strNom = Application.GetSaveAsFilename(ActiveSheet.Name, "Fichier Excel (*.xls),*.xls")
    ActiveWorkbook.SaveAs strNom
    ActiveWorkbook.Close

Merci de votre aide

Sheets("Feuil1 (2)").name=sheets("Feuil1 (2)").range("B7")

super un Gros Merci