dim objexcel as excel.application
dim objsheet as excel.worksheet
dim objrange as excel.range

set objexcel=new excel.application
objExcel.Workbooks.Add
Set objSheet = objExcel.Workbooks(1).Worksheets(1)
For j = 1 To 10
objSheet.Cells(1, j ) = "A"
Next j
'Format Report Data

Set objRange = objSheet.Range("A1","A10")
objRange.Select
With objRange
.Font.Name = "Ariel"
.Font.Size = 8
.Font.Bold = False
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
end with

here is the sample code it will fill character a in the excel sheet and define header for this.....

Thanx Manish