VB loop through selected range, update cell then PDF

[Viperuk]

Hi all.

I have a training certificate generator and I want to select a range in the 'Records' sheet which has unique reference numbers in column A:A.

What I would like to do is enter the completed training details in the Records sheet.

Then select the range of completed training in column A

Then, for each unique reference number in the selected range, update cell F14 in the active sheet (selected manually) and PDF, looping through the range updating F14 and PDFing until the end of the range.

I have this sorted for a single certificate, but I now have hundreds to PDF and I am struggling.



Sub A_PDF_Certs()

Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Range("Z1").Text & " " & Range("Z2").Text & " " & Range("Z3") & " " & "exp" & " " & Range("Z4").Text
OpenAfterPublish = False
Application.ScreenUpdating = True

End Sub


Z1 is just =F14 (the unique certificate number)
Z2 is the delegate name
Z3 is the course name shortened
Z4 is the date formatted to **.**.****


Any help would be appreciated.