I'm using the following code to save any worksheet (named with a 5-digit code) as a PDF in a given location ..
Dim wPath As String, r1 As String, r2 As String, r3 As String
wPath = "G:\Maths Dept\STUDENT RESULTS\2019\PDF Profile Copies\"
For Each ws In ThisWorkbook.Worksheets...