Цикл по множеству переменных с определенными значениями

Question

У меня есть набор значений, которые я пытаюсь ввести в PDF автоматически. Он начинается с открытия PDF-файла и использования клавиш send для перехода по заданным текстовым полям в PDF-файле. Я пытаюсь l oop эту функцию sendkeys при использовании заданных мной переменных (D1, D2, D3 и т. Д. c.).

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

Показан код ниже:

Sub CreatePDFForms()
Dim PDFTemplateFile, NewPDFName, SavePDFFldr, Desc As String
Dim CustRow, LastRow As Long

With Sheet1
LastRow = .Range("A999").End(xlUp).Row    
PDFTemplateFile = .Range("F2").Value       
SavePDFFldr = .Range("F4").Value           
ThisWorkbook.FollowHyperlink PDFTemplateFile
Application.Wait Now + 0.000004

For CustRow = 13 To 13 ' LastRow
D1 = .Range("L" & CustRow).Value        
D2 = .Range("B" & CustRow).Value          
D3 = .Range("AC" & CustRow).Value
D4 = .Range("C" & CustRow).Value
D5 = .Range("Y" & CustRow).Value
D6 = .Range("AB" & CustRow).Value
D7 = .Range("Z" & CustRow).Value
D8 = .Range("U" & CustRow).Value
'D9 = .Range("AA" & CustRow).Value
'D10 = .Range("AA" & CustRow).Value

Description = D4                      

DataEntry = XXXXX(D1, D2, D3, D4, D5, D6, D7, D8)

For DataEntry = 1 To 8

Application.SendKeys "{Tab}", True
Application.SendKeys DataEntry, True
Application.Wait Now + 0.00001

Next DataEntry

Answer 1

DataEntry = Array(D1, D2, D3, D4, D5, D6, D7, D8)

For Each e in DataEntry 

    Application.SendKeys "{Tab}", True
    Application.SendKeys e, True
    Application.Wait Now + 0.00001

Next e