Attribute VB_Name = "Module5"
Sub PDF_PatientList()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Patient List").Select

filePath = "\\cpathngs\NGSData\AB7500\COVID-19\Upstate_RealTime_COVID-19\PDF_Reports\"
strFile = Sheets("Patient List").Range("I2") & "_" & Format(Now(), "yyyymmdd\_hhmm") & ".pdf"
myFile = filePath & strFile

Sheets("Patient List").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

End Sub