更改单元格区域内单个单元格的背景颜色

Question

我正在处理 Excel 工作簿的左侧菜单。我想要实现的是有一个可以更改菜单背景颜色的设置，范围是所有工作表中的 A1:A200。我可以使用下面的代码执行此操作，并且它运行良好，问题是一个单元格，即活动工作表单元格（与实际工作表名称无关的文本），具有与其他单元格不同的背景颜色。我不知道如何检测该单元格并确保在选择 NewColour 时它具有 AccentColour，我原本想循环遍历所有单元格，但这似乎需要很长时间；

Private Sub ChangeMenuBackgroundColour()
'Procedure to change the background colour of the left hand menu

    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim cursheet As Worksheet
    Dim NewColour As Long
    Dim CurrentColour As String

    Set wbBook = ThisWorkbook
    Set CurrentSheet = ActiveSheet

    CurrentColour = Range("Menu_Background_Colour").Value

    Application.ScreenUpdating = False

    Select Case CurrentColour

        Case "Black"
            NewColour = RGB(50, 50, 50)
            AccentColour = RGB(75, 85, 95)

        Case "Blue"
            NewColour = RGB(55, 95, 145)
            AccentColour = RGB(80, 130, 190)

        Case "Brown"
            NewColour = RGB(90, 65, 50)
            AccentColour = RGB(115, 100, 95)

        Case "Green"
            NewColour = RGB(80, 130, 95)
            AccentColour = RGB(105, 190, 140)

        Case "Grey"
            NewColour = RGB(90, 90, 90)
            AccentColour = RGB(115, 125, 135)

        Case "Orange"
            NewColour = RGB(220, 120, 60)
            AccentColour = RGB(245, 145, 105)

        Case "Purple"
            NewColour = RGB(125, 75, 135)
            AccentColour = RGB(150, 110, 180)

        Case "Red"
            NewColour = RGB(180, 65, 65)
            AccentColour = RGB(205, 100, 110)

    End Select

    For Each wsSheet In wbBook.Worksheets

        If Not wsSheet.Name = "Blank" Then
            wsSheet.Activate

            With ActiveSheet

                Range("A1:A200").Interior.Color = NewColour

            End With

        End If

    Next wsSheet

    CurrentSheet.Select
    Application.ScreenUpdating = True

End Sub