Enregistrer en .crd en nommant le classeur par le nom d'une cellule

Bonjour,

Grande débutante en VB ,après les avoir modifiés je cherche à enregistrer des classeurs en format .crd en donnant le nom d'une cellule à mon classeur.

Avec :

Call ActiveWorkbook.SaveCopyAs(ActiveWorkbook.Worksheets(1).Range("A1").Text & ".crd")

j'obtiens bien des fichiers avec le bon nom et la bonne extension mais les fichiers . crd sont inexploitables.

J'imagine qu'il faut rajouter ensuite FileFormat:=xlCRD mais ça n'a pas l'air d'être aussi simple..
Pourriez vous m'aider ?
Merci