View Single Post
Old 12-07-2011, 05:53 AM
santors71 santors71 is offline Windows 7 32bit Office 2010 32bit
Join Date: Dec 2011
Posts: 5
santors71 is on a distinguished road
Default Mail with macro Excel 2010

Need help with Excel macro. This macro works well in Excel 2003. Now when I use excl 2010 so it does not work anymore. The error I get is that it is the wrong format of date and Save As. Is there anyone who can help me, I am very grateful.

Sub E_Post_Zon_2()

ActiveCell.FormulaR1C1 = "'00059"
' Dim strDate As String
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Tuppz Prognos " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail, _
"Tuppz Prognos Ford Bonus "
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close True

End Sub
Reply With Quote