VBA运行时错误'1004'：Selection.Interior.Pattern

Question

我有以下代码，应根据其中的一个值简单地更改命名范围的修饰。 如果其为空，则变为红色；否则，应清除所有装饰。 我查看了其他类似错误的问题，似乎无法解决我的问题。 我有以下代码：

    For Each section In mandatoryFields

    MsgBox (ThisWorkbook.Worksheets("Worksheet").Range(section).Value)
    If Trim(ThisWorkbook.Worksheets("Worksheet").Range(section).Value) = "" Then
        ThisWorkbook.Worksheets("Worksheet").Range(section).Select

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    Else
        ThisWorkbook.Worksheets("Worksheet").Range(section).Select
            With Selection.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    End If

Next section

我已逐步完成代码，并且在运行时错误被触发

.Pattern = xlNone

要么

.Pattern = xlSolid

线。 有什么建议么？

我也尝试过

Worksheets("Worksheet").Activate
        Range(section).Select
            With Selection.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With

我有以下代码是在单击按钮时触发的。

    Dim wb As Workbook
Set wb = Application.Workbooks("C New Hire")
wb.Worksheets("Worksheet").Range("nameRange").Value = "r"

我第二次单击该行上的按钮时，将发生运行时错误

wb.Worksheets("Worksheet").Range("nameRange").Value = "r"

Answer 1

代码的着色部分是正确的，因为它可以正常工作：

Sub luxation()
    Range("A1:A2").Clear
    Range("A1").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    Range("A2").Select
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
End Sub

然而：

选择范围之前，必须激活“包含”工作表。

否则，请遵循David的建议。

编辑＃1：

根据您更新的代码，紧接在：

Range(section).Select

插入：

MsgBox Selection.Address(0,0)

这将为问题发生的位置提供一些启示。

Answer 2

这个问题的答案是在执行我的内部代码以保护代码中的工作表的代码之后触发了一个Worksheet_Change函数。 这意味着我不能对任何对象执行任何程序，例如更改其颜色。 因此，在执行这些步骤之前，我必须取消保护工作表的保护。

最后简单修复，但很容易错过。