EXCEL中N个工作表重命名

我想把EXCEL中N个工作表重命名，这N个工作表中第一个的名字如果是A，第二个就是B=A+7，第三个为C=B+7……以此类推，怎么操作哪？

写个宏吧:

Sub Macro1()

Dim i As Integer, j As Integer

j = 1

For i = 1 To Sheets.Count

Sheets(i).Name = j

j = j + 7

Next i

End Sub

• ·装显卡时需要Disk 1
• ·关于太阳的诗词
• ·在这里能交上好朋友吗？
• ·谁能提供一个可用的EWIDO更新代理服务器
• ·如何把歌曲存放到Windows Media P
• ·我的电脑在中铁快运途中内部零件被盗，如何解决？
• ·安装魔兽争霸的冰峰王座时总出现"无法
• ·现在大家用什么来下载电影电视？
• ·在线等：4500元装机，求配置.....
• ·问大家一个系统问题(关于XP局域网运行程序文件