Hi
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.
Santors

Sub E_Post_Zon_2()
'

Range("B8").Select
ActiveCell.FormulaR1C1 = "'00059"
Range("B9").Select
' Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Tuppz Prognos " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail santors71@gmail.com, _
"Tuppz Prognos Ford Bonus "
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName


ActiveWorkbook.Close True

End Sub