Excel - Worksheet: Renaming a Worksheet Name

Does anyone have code that changes a worksheet name?

Ex. Name is “Worksheet1” to “Work1”

TIA

Try this:-

tell application "Microsoft Excel"
	try
		set name of active sheet to "new_name_for_sheet"
	on error
		display dialog "Re-name failed." buttons {"Cancel"} with icon 0
	end try
end tell