VBA установить значение комбинированного списка для нескольких ячеек на нескольких листах

Question

У меня есть 3 поля со списком и кнопка ОК, мне нужно установить значение нескольких ячеек в нескольких листах, равное значению выбора поля со списком.

Dim choice As String
Dim x As Variant

x = Array("STD BASE DD", "STD BASE CAB DOOR ONLY", "OPEN BASE CABINET", _
    "1 DRAWER BASE & OPEN", "2 DRAWER BASE", "3 DRAWER BASE", "4 DRAWER BASE", _
    "5 DRAWER BASE")

    choice = matsetup.ComboBox1.Value

   Worksheets(x).Range("H14,H15,H20").Value = choice

это выдает ошибку "объект не поддерживает свойство или метод"

Worksheets(x).Range("H14,H15,H20").Value = choice

кто-нибудь знает работу вокруг

Answer 1

Возможно, вы ищете что-то подобное?

Dim choice As String
Dim x As Variant
Dim v As Variant

x = Array("STD BASE DD", "STD BASE CAB DOOR ONLY", "OPEN BASE CABINET", _
          "1 DRAWER BASE & OPEN", "2 DRAWER BASE", "3 DRAWER BASE", _
          "4 DRAWER BASE", "5 DRAWER BASE")

choice = matsetup.ComboBox1.Text

For Each v In x
    Worksheets(v).Range("H14,H15,H20").Value = choice
Next v

Answer 2

Это работает?

Worksheets(x).Range("H14").Value = choice
Worksheets(x).Range("H15").Value = choice
Worksheets(x).Range("H20").Value = choice