sorry I meant to add .xls after the .345 "mavrpt12345678a12.345.xls"
so quickly running it, and sending myself the file, didn't seem to work,
The folder "Attachments was made, but the file was not saved into it"
I was considering using the code:

Private Sub ReplaceCharsForFileName(sName As String, _
sChr As String _
)
sName = Replace(sName, "'", sChr)
sName = Replace(sName, "*", sChr)
sName = Replace(sName, "/", sChr)
sName = Replace(sName, "", sChr)
sName = Replace(sName, ":", sChr)
sName = Replace(sName, "?", sChr)
sName = Replace(sName, Chr(34), sChr)
sName = Replace(sName, "<", sChr)
sName = Replace(sName, ">", sChr)
sName = Replace(sName, "|", sChr)

To replace the "illegal" Characters in the subject line?

Again Thanks