ROWS = 10000 COLS = 7 Set WshShell = CreateObject("WScript.Shell") CurDir = WshShell.CurrentDirectory Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) cellCounter = 1 For row = 1 to ROWS For col = 1 to COLS sval = cellCounter & Chr(col+96) Set cell = xlSheet.Cells(row, col) cell.Value = sval xlSheet.Hyperlinks.Add cell, "http://poi.apache.org/" cellCounter = cellCounter + 1 Next Next 'for Excel versions prior to 2003 the last argument must be removed 'xlSheet.SaveAs CurDir & "/vba-"&(ROWS*COLS)&".xls" xlSheet.SaveAs CurDir & "/vba-"&(ROWS*COLS)&".xls", 56 xlApp.Quit