Изменить InCellDropdown для Range с другой проверкой

Question

У меня есть лист Excel с несколькими ячейками с различными проверками данных.С помощью кнопки ToggleButton я хочу включить или выключить выпадающие списки.Я придумал следующий код:

Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then

Dim rng As Range
Set rng = Range("activeFields")
rng.Validation.InCellDropdown = False

Else

Set rng = Range("activeFields")
rng.Validation.InCellDropdown = True

End If
End Sub

Диапазон "activeFields" является именованным диапазоном всех ячеек с проверкой данных.Код работает только, если я выбираю поля, которые имеют одинаковую проверку данных.Есть ли способ заставить его работать для всех ячеек, не выбирая их отдельно?Их очень много.Большое спасибо за вашу помощь!

Answer 1

Используйте цикл:

Sub kfhsdf()
    Dim r As Range, rr
    Set r = Range("mylist")

    MsgBox Range("mylist").Address(0, 0)
    For Each rr In r
        rr.Validation.InCellDropdown = False
    Next rr
End Sub

, где Range("mylist") - это разъединение.