How to create the list of worksheets in an excel file? 2008

-- Change the line starting with set theDoc to the location of your Excel file
-- In the example the line translates to "LeopardFirewire:Users:test:Documents:Workbook1.xls"
-- LeopardFirewire is the name of my hard drive.
set theDoc to (path to documents folder as text) & "Workbook1.xls"
tell application "Microsoft Excel"
	activate
	-- open file theDoc
	open file theDoc
	make new worksheet at beginning of active workbook with properties {name:"Index"}
	set worksheetList to every worksheet of active workbook
	set i to 1
	set theCell to "A"
	repeat with aworkSheet in worksheetList
		set aworkSheetName to aworkSheet's name
		if aworkSheetName is not "Index" then
			set theValue to theCell & i
			activate object worksheet "Index"
			activate object range theValue of worksheet "Index"
			make new hyperlink at worksheet "Index" with properties {sub address:aworkSheetName & "!A1", text to display:aworkSheetName, address:""}
			set i to i + 1
		end if
	end repeat
end tell