求工作本中全部工作表标签颜色间隔设置的代码

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

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

Sub Test()

    iCount = Worksheets.Count


    For i = 1 To iCount

        Set sht = Worksheets(i)

        sht.Tab.ColorIndex = 5 '颜色代码，可以自己尝试一下不同的颜色

        i = i + 1

    Next

End Sub

------解决方案--------------------
不敢叫老师，我也是学生。呵呵。

Sub 复制多工作表()

  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 i

End Sub