VBA - 根据单元格值更改多个工作表选项卡的颜色

I am trying to create a button that upon one click, will check a specific cell in 10 sheets of a workbook, and recolour the tabs depending on a cell value. I am trying to create a button that upon one cl