VBA: Изменить цвет текстового поля с помощью Clickbox

Question

У меня есть флажок в Листе А и текстовое поле на Листе B. Я пытаюсь изменить цвет текстового поля на Листе В (который скрыт), когда флажок установлен.

Я продолжаю получать ошибку «438» - «Объект не поддерживает эту ошибку свойства или метода», но не может решить, почему. Любая помощь приветствуется.

код используется в данный момент:

 Private Sub CheckBox8_Click() 

    If CheckBox8 = True Then 

     Sheets("Week_3").Shapes.Range(Array("TextBox10")).Select 
     With Selection.ShapeRange.Fill 
      .Visible = msoTrue 
      .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
      .ForeColor.TintAndShade = 0 
      .ForeColor.Brightness = -0.5 
      .Transparency = 0 
      .Solid 
     End With 

    Else 

     Sheets("Week_3").Shapes.Range(Array("TextBox10")).Select 
     With Selection.ShapeRange.Fill 
      .Visible = msoTrue 
      .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
      .ForeColor.TintAndShade = 0 
      .ForeColor.Brightness = 0 
      .Transparency = 0 
      .Solid 
     End With 

    End If 

    End Sub 

Большое спасибо

Answer 1

решаемые путем изменения цвета изменяя разделы:

With Sheets("Week_3").Shapes("TextBox 10").Fill 
    .Visible = msoTrue 
    .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
    .ForeColor.TintAndShade = 0 
    .ForeColor.Brightness = -0.5 
    .Transparency = 0 
    .Solid 
End With 

В следующем разделе не требуется:

Sheets("Week_3").Shapes.Range(Array("TextBox10")).Select