excel按字母对工作表名进行升序排序

在excel工作簿中会创建很多工作表，大量的工作表有时查找起来有点麻烦。如何将这些工作表按字母排序呢这里我们自定义了一个函数。可按照字母表升序来对工作表进行排序
原始排序：

1508316487100341.png

运行代码排序：

1508316510859947.png

详细源码：
Sub按字母表排序工作表()
DimiAsInteger,jAsInteger,nAsInteger
OnErrorResumeNext
n=Sheets.Count
Ifn=1ThenEnd
Fori=1Ton-1
Forj=i+1Ton
IfUCase(Sheets(j).Name)[U]