loop through data list

Post your worksheet up

Try this. It will put the files inteh C:\Temp\ directory

Sub scroll()
Dim n As Integer
Dim name, fullname As String

n = 1


Do While Range("sheet2!g2").Offset(n, 0).Value <> ""

name = Range("sheet2!g2").Offset(n, 0).Value

Range("sheet1!e4").Value = name

Range("e4:m4").Select 'autofits rows that could be potentially hidden
    Selection.Rows.AutoFit
         
       
    'CHANGE THE LOCATION OF THE SAVE FOLDER HERE
    FullName = "c:\temp\" & name & ".pdf"
   
    
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FullName, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

n = n + 1

Loop


End Sub

Glad it worked. If I was printing to a printer rather than PDF I'd probably just go to macro recorder, print one page off then copy that code to replace the code starting "Activesheet.....". That way I'd get all the printer references and page setup captured. You won't need the full name reference either if you print to printer but it won't hurt to leave it in.