Den Pfad und Namen passt du sicher noch an.
Sub testcopy()
Dim strFilename As String strFilename = "F:\Downloads\MyAttachment.xlsm" ActiveWorkbook.SaveCopyAs strFilename end sub