求工作本中所有工作表标签颜色间隔设置的代码,该如何解决_VBA

求工作本中所有工作表标签颜色间隔设置的代码
各位老师,你们好!
求工作本中所有工作表标签颜色间隔设置的代码,我的一个工作本里只有1个工作表,执行宏代码按钮复制多张工作表,复制的工作表标签的颜色都是一样的,请老师指教一代码,使复制的工作表颜色间隔设置
谢谢!!!

------解决方案--------------------------------------------------------

间隔设置意思是隔一个设置一下颜色吗？

VBScript code

Sub Test()    iCount = Worksheets.Count    For i = 1 To iCount        Set sht = Worksheets(i)        sht.Tab.ColorIndex = 5 '颜色代码，可以自己尝试一下不同的颜色        i = i + 1    NextEnd Sub
------解决方案--------------------------------------------------------
不敢叫老师，我也是学生。呵呵。
VB codeSub 复制多工作表()  Dim i As Byte  For i = 1 To InputBox("请输入复制工作表的数量:", "", 1)  Sheets("分项工程汇总表").Copy After:=Sheets(Sheets.Count)  ActiveSheet.Name = "新表" & Format(i, "0")  ActiveSheet.Columns("N:N").Delete '删除第N列，可以自己加  If i Mod 2 = 1 Then    ActiveSheet.Tab.ColorIndex = 5 '5是蓝色  End If  Next iEnd Sub