Create sheets with specific color for TAB

[sreeks]

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.

Please Login or Register  to view this content.

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

Best Regards,
Sri

[sreeks]

Hi All,

Managed to do it myself...

Sheets.Add After:=ActiveSheet
Sheets.Add After:=ActiveSheet
Sheets.Add After:=ActiveSheet
Sheets.Add After:=ActiveSheet
Sheets(Array("Sheet13", "Sheet14", "Sheet15", "Sheet16")).Select
Sheets("Sheet16").Activate
With ActiveWorkbook.Sheets("Sheet16").Tab
.Color = 255
.TintAndShade = 0
End With
With ActiveWorkbook.Sheets("Sheet15").Tab
.Color = 255
.TintAndShade = 0
End With
With ActiveWorkbook.Sheets("Sheet14").Tab
.Color = 255
.TintAndShade = 0
End With
With ActiveWorkbook.Sheets("Sheet13").Tab
.Color = 255
.TintAndShade = 0
End With


Best Regards,
Sri

[Olly]

Or a slightly neater route:

Please Login or Register  to view this content.