Date Header in Excel Automation

See more:

VB

In the excel automation i'm creating, a date header is required,

objSheet.Range("A4:E4").NumberFormat = "As Of " & Format(RM.mDate, "mmmm d, yyyy")

and will be viewed like "As Of January 2, 2012"

But, when I run Excel Automation, this is displayed "A0 of January 2, 2012".

In Excel, I tried doing Format Cells, selected Custom..
the same "A0 of January 2, 2012".

How can I displayed it as "As of January 2, 2012"?

Also, after creating an Excel Worksheet, I set it to visible = true, the workbook shows, but a SAVE popup window appears, how can I eliminate that?

this is the code ;

objApp.Visible = True = workbook appears.

 range = Nothing
 objSheet = Nothing
 objSheets = Nothing
 objBooks = Nothing
 objApp.Quit()
 objApp = Nothing

Also, how can i prevent the FileDialog from showing or how can I select "Cancel" from the Filedialog?, so that when the automation is done, and excel shows, no FileDialog will appear.