Problema con macro

Tengo esta macro que debe generar un archivo habilitado para macros, y lo crea en la carpeta y con el nombre, pero es archivo que no reconoce el formato.

Sub Nom()

Dim MiArchivo As String

MiArchivo = Range("A1")

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\Manel\Dropbox\Feina2\" & MiArchivo, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = True

Un saludo y gracias por leerme.

Salud.