Excel se cierra al ejecutar subrutina VBA en EXCEL

Estoy usando ms excel 2007 pero al ejecutar una linea en concreto la aplicación se bloquea. La linea en concreto es Result = Imagen. Export(Archivo).
El problema se manifiesta cuando mi fichero prueba.xlsm (fichero original donde VBA si funciona) lo guardo con "guardar como" prueba2.xlsm (fichero problema). Entonces excel se cierra (cuelga) cuando en prueba2.xlsm ejecuto el siguiente código:

Sub informeImagen()
Set Rango = Worksheets("Informe DnT").Range("A1:Z60")
fileName = Replace(ThisWorkbook.Name, ".xlsm", ".png")
Archivo = Application.ActiveWorkbook.Path & "\" & fileName
Dim Imagen As Chart
Dim Result As Boolean
With Rango
.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set Imagen = Rango.Parent.ChartObjects.Add(10, 10, .Width, .Height).Chart
End With
Imagen.Paste
Imagen.ChartArea.Border.LineStyle = 0
Imagen.ChartArea.Width = Imagen.ChartArea.Width * 3
Imagen.ChartArea.Height = Imagen.ChartArea.Height * 3
On Error Resume Next
Kill Archivo
Result = Imagen.Export(Archivo)
Imagen.Parent.Delete
Set Imagen = Nothing
If Result Then
MsgBox "Correcto. Se ha creado la imagen del rango"
Else
MsgBox "Error. " & Err.Description
End If
End Sub

¿Alguna ayuda?