Ouverture d'un fichier et changement de nom du fichier

Bonjour est-ce possible d'effectuer un changement du nom du fichier qui va s'ouvrir avec ce porgramme

Private Sub CommandButton1_Click()
Set MonWorkbook = Workbooks.Add(Template:="C:\Test\Fiche test.xlsm")
End Sub