 <XLMAIN_SheetReName>:
 {
 	InputBox, NewSheetName ,输入新的工作表名称
+	If ErrorLevel
+		Return
 	if StrLen(NewSheetName)>0 {
 		Excel_ActiveSheet()
 		excel.ActiveSheet.Name := NewSheetName

{
    Excel_Selection()
    InputBox, OutputVar ,输入名称
    inputbox, comments ,输入注释
    address:=Selection.address
    Name:=OutputVar
    RefersToR1C1:=address

{
	Excel_ActiveSheet()
	InputBox, Reference , 输入跳转到的位置，如B5/b5：第二列，第5行
	If ErrorLevel
		Return
	excel.ActiveSheet.Range(Reference).Select
	objRelease(excel)
	return
