Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
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