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)
