enregistrer sous le nom d'un text box

bonjour a tous
voila ma demande: j'ai creer sur mon classeur une macro , cet macro consiste a agrementer de +1 un numero ,inscrit dans un TextBox, a chaque ouverture, ce marco fonstionnne .
je souhaiterais qu'à chaque fermeture mon classeur s'enregistre sous le nom de ce TextBox
voici ma macro realisé:

Private Sub Workbook_Open()
Dim numero As Integer
numero = Val(Feuil1.TextBox1.Text)
numero = numero + 1
Feuil1.TextBox1.Text = numero

si vous avez la reponse merci de m'ecrire
merci d'avance
bonne journée
End Sub