Bold IN Excel Macro

[#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

[marcus_sommer]

I think you could adapt something like this by searching for cell-values like 'Total' or defined a fix row for the header:

Changes font to bold : Range Format « Excel « VBA / Excel / Access / Word

- Marcus