VBA -根据工作表选项卡颜色更改特定单元格值的字体颜色

Sub ChangeFontColorByTabColor()
    Dim ws As Worksheet
    Dim cell As Range
    
    For Each ws In ThisWorkbook.Worksheets
        '判断工作表选项卡的颜色
        Select Case ws.Tab.Color
            Case RGB(255, 0, 0) '红色
                '更改特定单元格的字体颜色为蓝色
                Set cell = ws.Range("A1")
                cell.Font.Color = RGB(0, 0, 255)
                
            Case RGB(0, 255, 0) '绿色
                '更改特定单元格的字体颜色为黄色
                Set cell = ws.Range("A1")
                cell.Font.Color = RGB(255, 255, 0)
                
            Case Else
                '其他颜色不做处理
        End Select
    Next ws
End Sub