Excel 2010 :: Auto Email Attachment Corrupt

It copies one of the work books, Saves it and then emails this as an attachement to a few people.

All users are on Excel 2010, however the file originally was created in Excel 2003. The File Extension Was .xls as was the attachment.

First time I sent the email this year it came through corrupt. No changes had taken place in the workbooks or the code.

I have now updated the spreadsheet and saved it as a .xlsm

I have also updated the code so the attachments are .xlsx

The email attachments are always corrupt.

Code:
Sub copy2()
Application.ScreenUpdating = False
Dim fname As String 'filename
Sheets(Array("To Order", "WO To Chase", "PO To Chase", "Contact", "WO Report")).Copy
fname = Year(Date) & " " & Month(Date) & Day(Date) & " Chase & Order" 'filename!!
ActiveWorkbook.SaveAs FileName:= _

[code]...

where the corruption might come from? Its not via the email as if I go to the saved file its corrupt as well.