Показ и скрытие объектов

Question

Я прыгал, кто-то мог направить меня в правильном направлении здесь. У меня есть 3 объекта, которые я хочу исчезнуть, когда «Белый» выбран из выпадающего списка в противном случае, чтобы оставаться видимым. Пока я получил это:

 Dim Wc As Worksheet
    Set Wc = Sheets("Sheet1")
    Dim MyArray(1 To 3) As Range
    Dim SCC As String

    Set MyArray(1) = Sheets("Sheet1").Range("Object01")
    Set MyArray(2) = Sheets("Sheet1").Range("Object02")
    Set MyArray(3) = Sheets("Sheet1").Range("Object03")

    SCC = MyArray

    If Worksheets("Sheet1").Range("MyRange").Value = "White" Then
        ws.Shapes(SCC).Visible = False
    Else
        ws.Shapes(SCC).Visible = True
    End If

Есть идеи, почему это не работает? Любые предложения больше, чем добро пожаловать

Answer 1

Dim SCC() As Variant
SCC = Array("Object01", "Object02", "Object03")

wc.Shapes.Range(SCC).Visible = False