Botón para Ejecutar macro Excel desactivado

[JoaoM]

Hola. En Excel 2013 En 2007 no hay este problema, comprobado en maquina de un amigo
Espero de su ayuda, una solución para lo que expongo con imágenes
La macro la ejecuto para copiar (respaldar) la hoja como XLSX, hasta aquí funciona todo mui bien pero:

Al ejecutar la 1ª vez la macro por vía del botón, me funciona a perfección pero al terminar la 1ª copia si repito para la 2ª le doy nuevamente al botón, este no hace nada, está como que no tenga macro asignada (desactivado) y su nombre aparece en la barra de nombres. Piso afuera, en cualquier celda, y voy pisando el botón, ya funciona el botón, si se ejecuta.

¿Qué puede ser?. La macro;

Código:

Sub guardar_Copia()
  Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    '
    Set h1 = ActiveSheet 'HOJA ACTIVA
    nbr = h1.Name & " " & h1.[E8] & " " & h1.[I8] & " " & h1.[I9] 'NOMBRE PARA ARCHIVO
    ruta = "D:\Datos Mecanicos\" 'RUTA PARA EL ARCHIVO
    With Application.FileDialog(msoFileDialogFolderPicker) 'VENTANA DE GUARDAR COMO:
        '.Title = "Selecciona una carpeta"
        .AllowMultiSelect = False
        .InitialFileName = ruta
        If .Show <> -1 Then Exit Sub
        cp = .SelectedItems(1)
    End With
    'PROCEDE A LA COPIA
    h1.Copy
    ActiveSheet.DrawingObjects("Botón 1").Delete 'ELIMINA EL BOTON EN LA COPIA
    ActiveWorkbook.SaveAs Filename:=cp & "\" & nbr & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
    
    MsgBox "Archivo guardado en " & cp & "\" & nbr & ".xlsx"  'MENSAGE DE GUARDADO
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    Range("A1").Select 'CELDA A SELECCIONAR DESPUES DE TODO FINALISADO
End Sub

Termino la 1ª copia Aceptando el MsgBox


Voy para la 2ª y veo que el nombre del botón aparece en la caja de nombres


Piso el boton y me encuentro con esto


Tengo que manualmente seleccionar una celda cualquier y volver a pisar el botón para que ejecute la macro