Excel VBA循环遍历所有工作表并更改工作表颜色

I was hoping to find an excel vba that will loop through all sheets in a workbook and change the sheet color in the below order. 3, 5, 6, 12, 3, 5, 6, 12, 3, 5, 6, 12 ect repeating the pattern until it runs out of sheets. The below code work to change them on a random color but I need the above pattern.I was hoping to find an excel vba that will loo