ThisWorkbook.Worksheets(1).Tab.ColorIndex = 3
ThisWorkbook.Worksheets(1).Tab.Color = vbRed
ThisWorkbook.Worksheets(1).Tab.Color = RGB(255, 0, 0)
ThisWorkbook.Worksheets(1).Tab.ColorIndex = 3
ThisWorkbook.Worksheets(1).Tab.Color = vbRed
ThisWorkbook.Worksheets(1).Tab.Color = RGB(255, 0, 0)