Export To Excel

[#1]

HI All

Can some one tell me what we need to do to get Bold Text for all the headers and Bold text at the Total that is end row .

Iam using below  macro to export to excel

'sub Expot-Excel

'Dim CLApp, XLDoc,XLSheet

' set XLApp = CreateObject("Excel.Application") ' Define Object

' XLApp.Visible = True 'Visible set as true

' set XLDoc = XLApp.Workbooks.Add 'Open new workbook

' set XLSheet = XLDoc.Worksheets.Add

' ActiveDocument.GetSheetObject("CH20").CopyTableToClipboard TRUE

' XLSheet.paste

' XLSheet.Name= "BBCR CSD"

'

'end sub

Thanks in Advance