Enregistrer feuille de calcul avec un nom différent

[fdj]

Bonjour
J'utilise une macro pour enregistrer des données d'une de mes feuilles de calcul en .txt

Sub enregistrer()
Sheets("Mix").Select
Dim i As Integer
Open ThisWorkbook.Path & "\Mix.TXT" For Output As #1
For i = 1 To Range("A65000").End(xlUp).Row
Print #1, Range("A" & CStr(i)).Value
Next i
Close #1
End Sub

mai le pb que j'ai ce que je voudrai que le nom du fichier txt créé dépende d'une cellule d'une autre feuille
cad
feuille 1 des données avec une cellule ou j'ai ex : 09H001
et je voudrai que ma feuille 2 (qui s'apelle Mix) s'enregistre en txt avec le nom Mix09H001.txt
si qq peu maider
merci davance
fdj