Попытка построить список проверки данных с массивом, который продолжает строить

Question

Я пытаюсь создать список проверки данных, который добавляет значения в список, который подается из цикла for. Прямо сейчас у меня есть цикл for, который генерирует значения и затем записывает их в столбец.

То, что я пытаюсь сделать, это вместо того, чтобы записывать их в ячейку, я хотел бы записать их непосредственно в список проверки данных. (Таким образом, программа работает быстрее)

"For Loop" выглядит так:

Dim PlotRow As Integer


  Set Layout = NewFile.ModelSpace.Layout      'Setting the layout to ModelSpace viewport
  Layout.RefreshPlotDeviceInfo                'Refresh the current plot information 
  plotDevices = Layout.GetPlotDeviceNames()   'Setting the plotting view for this current layout

  PlotRow = 18
  Dim x As Integer
  For x = LBound(plotDevices) To UBound(plotDevices)

      Cells(PlotRow, 10) = plotDevices(x)
      Debug.Print plotDevices(x)
      PlotRow = PlotRow + 1

  Next

Я попытался изменить код проверки данных, написанный Davy C. Но безуспешно.

Его ссылку можно посмотреть здесь: Как передать значения из массива в выпадающий список в определенной ячейке (не комбинированный список) в Excel VBA

Код проверки необработанных данных может быть показан здесь:

Dim myArray
myArray = Array("1", "2", "3")

Range("A" & 1).Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=myArray(0) & "," & myArray(1) & "," & myArray(2)
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

У меня работает цикл for, и у меня есть хорошая настройка того, как написать код проверки данных. Вместо Cells(PlotRow, 10) я хотел бы поставить поле проверки данных для этой ячейки в этом столбце.