Dissocier les onglets pour les enregistrer automatiquement - Nom

Bonjour,

Je suis sous Excel 2007 et j'aurais besoin de dissocier mes onglets dans des fichiers distincts.
Je ne suis pas douée du tout avec VB et j'ai trouvé un code qui m'enregistre automatiquement chaque onglet dans un fichier distinct.
C'est nickel, cependant, j'aurais aimé que le titre de mon nouveau document une fois enregistré, n'ai pas pour titre celui de mon onglet mais une cellule de mon document (mon code produit) + le nom de mon projet. Sans quoi je me retrouve à renommer un par un mes nouveaux documents.

Est-ce possible ?

Voici le code que j'ai enregistré et que j'utilise jusqu'à maintenant :

Sub saveOnglet()
Dim ws
Dim newWk As Workbook

    For Each ws In Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws

End Sub