Apply an AutoFormat to an Excel Spreadsheet








' Apply an AutoFormat to an Excel Spreadsheet



Const xpRangeAutoFormatList2 = 11

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
k = 1
For i = 1 to 10
    For j = 1 to 10
        objWorksheet.Cells(i,j) = k
        k = k + 1
    Next
Next

Set objRange = objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)



search for scripts

VbsEdit contains all these sample scripts!

Download Now!