I have a problem with the following code. What happens is it sends th
file as an attachment fine the file is named correctly. But then when
open the file from my email it is named different.

i.e file sent Part of EVRG1.xls when i open it is called Part O
EVRG11

Sub Mail_ActiveSheet()
Dim wb As Workbook
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name
.SendMail "", _
"EVRG1"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Su

--
Message posted from http://www.ExcelForum.com