auto color each tab when a macro is active

[hajiali]

The below code will allow me to type the number of times to copy a sheet.

    Dim I As Long    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True

what I like to add is for it to color each tab to a different color and also change value of a cell in each sheet to = I any suggestion is greatly appreciated.

 

[Fluff]

This will change the tab colour

   Dim I As Long
   Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = I
        [COLOR=#ff0000]ActiveSheet.Tab.ColorIndex = I[/COLOR]
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True

I'm not sure what you mean with the 2nd part part of your question.

 

[hajiali]

Thanks Fluff.

on each sheet cell C3 = I

 

[Fluff]

Ok, how about

   Dim I As Long
   Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        With ActiveSheet
         .Name = I
         .Tab.ColorIndex = I
         .Range("C3") = I
      End With
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True