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

Hi Santors,

Regarding the date, what is the error message? Also, you could simplify that line with:
strDate = Format(Now, "DD-MM-YY h-mm-ss")

As for the Save As, what is the error message? Have you tried specifying the fileformat (it's one of the Save As parameters)?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]