For function for VBA

Hi,

I read this tips from this web site:

Mail Sheet Array using VBA in Microsoft Excel

• Create a new workbook with the SheetsArray.
• Save the workbook before mailing it.
• Delete the file from your hard disk after it is sent.

Sub Mail_SheetsArray()
Dim strDate As String
Sheets(Array("Sheet1", "Sheet3")).Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "[email protected]", _
"This is the Subject line"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

I am trying to run it in Excel but the error happens with Format function with message: 'Wrong number of arguments or invalid property assignment'

Could you help me to understand and to make it run.

Thank you very much

Nam

The code works perfectly fine. Could you tell us which line of code is giving the error.

- Mangesh

Thanks for your support.

The error in line Format ((Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") with the following message 'Wrong number of arguments or invalid property assignment'

Regards,

Nam

Even in this line there is no error. It works perfectly fine.
Maybe try the two seperately, something like
strDate = Format(Date, "dd-mm-yy")
first, and then
strDate = Format(Time, "h-mm-ss")
and try to isolate the error.

- Mangesh

Hi,

Thank you for your support.

I am using Excel 2002. Even though, I try to run this Code, the error also occurs

Sub TestFormat()

MsgBox Format(5459.4, "##,###.00")
End Sub

I think is there any problem with my VBA in Excel or what should I add in some thing to make Format function work

Regards,

Nam