Formatting a cell 1

[mkjp2011]

Hello,
How would you change the formatting of a cell from Number to Custom 0?

Also, how would you add borders to the cell?

Here is how I instantiate the excel object:

Set excelReport = CreateObject("Excel.Application")
excelReport.Workbooks.Add
Set excelSheet1 = excelReport.ActiveWorkbook.WorkSheets(1)

 

[SkipVought]

hi,

 Set excelReport = CreateObject("Excel.Application")
 excelReport.Workbooks.Add
 Set excelSheet1 = excelReport.ActiveWorkbook.WorkSheets(1)  
  excelSheet1.Cells(1,1).NumberFormat = "0"

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]