Create sheets with specific color for TAB

Hi All,

Kindly request you to have a look at the below and please advise.


We have A,B,C,DE scenarios and we need to create 6 sheets for all the scenarios and a "Result" sheet in the spreadsheet:

ATC1.....ATC6 - All A in Black colour
BTC1.....BTC6 - All B in Yellow colour
CTC1.....CTC6 - All C some Light Blue
DETC1.......DETC6 - All D some Light Grey
Results - This will be Green color

I did a manual work around by recording a macro:
Create Sheet
Rename as ATC1
Coloured sheet as mentioned above.
Copy paste for each sheet name which will be around 25 times of the below code snippets but ofcourse change colour and change sheet names.

    Sheets.Add After:=ActiveSheet
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "ATC1"
    Sheets("ATC1").Select
    With ActiveWorkbook.Sheets("ATC1").Tab
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 4.99893185216834E-02
    End With

    Sheets.Add After:=ActiveSheet
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "CTC1"
    Sheets("CTC1").Select
    With ActiveWorkbook.Sheets("CTC1").Tab
        .Color = 255
        .TintAndShade = 0
    End With

I am managing by doing the above, if there is an easy workaround, please advise.

Best Regards,
Sri