Domenic - See below please
Sub PDFTemplate()
Dim PDFFldr As FileDialog
Set PDFFldr = Application.FileDialog(msoFileDialogFilePicker)
With PDFFldr
.Title = "Select PDF file to attach"
.Filters.Add "PDF Type Files", "*.pdf", 1
If .Show <> -1 Then GoTo NoSelection
Sheet1.Range("E136").Value = .SelectedItems(1)
End With
NoSelection:
End Sub
Sub SavePDFFolder()
Dim PDFFldr As FileDialog
Set PDFFldr = Application.FileDialog(msoFileDialogFolderPicker)
With PDFFldr
.Title = "Select a Folder"
If .Show <> -1 Then GoTo NoSel:
Sheet1.Range("E142").Value = .SelectedItems(1)
End With
NoSel:
End Sub
Sub CreatePDFForms()
Dim PDFTemplateFile, NewPDFName, SavePDFFolder, LastName As String
Dim FirstName As String, MiddleName As String
Dim CandidateRow, LastRow As Long
With Sheet1
LastRow = .Range("D9999").End(xlUp).Row 'Last Row
PDFTemplateFile = .Range("E136").Value 'Template File Name
SavePDFFolder = .Range("E142").Value 'Save PDF Folder
ThisWorkbook.FollowHyperlink PDFTemplateFile
Application.Wait Now + 0.00005
For CandidateRow = 2 To 3 'LastRow
'Clear Form
'Application.SendKeys "%"
'Application.Wait Now + 0.00001
'Application.SendKeys "m"
'Application.Wait Now + 0.00001
'Application.SendKeys "f"
'Application.Wait Now + 0.00001
LastName = .Range("D" & CandidateRow).Value 'Last Name
FirstName = .Range("E" & CandidateRow).Value 'First Name
MiddleName = .Range("F" & CandidateRow).Value 'Middle Name
Application.SendKeys "{Tab}", True
Application.SendKeys "{Enter}", True
Application.SendKeys "{Tab}", True
Application.Wait Now + 0.00001
Application.SendKeys LastName, True
Application.Wait Now + 0.00001
Application.SendKeys "{Tab}", True
Application.SendKeys Range("E" & CandidateRow).Value, True 'First Name
Application.Wait Now + 0.00001
Application.SendKeys "{Tab}", True
Application.Wait Now + 0.00001
Application.SendKeys "{Delete}", True
Application.SendKeys Range("F" & CandidateRow).Value, True 'Middle Name
Application.Wait Now + 0.00001
Application.SendKeys "{Tab}", True
Application.Wait Now + 0.00001
Application.SendKeys "{Delete}", True
Application.SendKeys Range("G" & CandidateRow).Value, True 'Cadency
Application.Wait Now + 0.00001
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys "{Tab}", True
Application.SendKeys Range("H" & CandidateRow).Value, True 'SSN
Application.Wait Now + 0.00001
Application.SendKeys "{Tab}", True
Application.Wait Now + 0.00001
Application.SendKeys "^(a)", True
Application.Wait Now + 0.00001
Application.SendKeys "{Delete}", True
Application.SendKeys Range("I" & CandidateRow).Value, True 'DOB
Application.Wait Now + 0.00001
Application.SendKeys "{Tab}", True
Application.SendKeys "^+(s)", True
Application.Wait Now + 0.00004
If Dir(SavePDFFolder & "\" & LastName & "," & " " & FirstName & " " & MiddleName & ".pdf") <> Empty Then Kill (SavePDFFolder & "\" & LastName & "," & " " & FirstName & " " & MiddleName & ".pdf")
Application.SendKeys SavePDFFolder & "\" & LastName & "," & " " & FirstName & " " & MiddleName & ".pdf"
Application.Wait Now + 0.00002
Application.SendKeys "%(s)", True
Application.Wait Now + 0.00004
Next CandidateRow
Application.SendKeys "^(q)", True
Application.SendKeys "^{numlock}%s", True
End With
End Sub