VBA To Save PDF's from hyperlink as cell reference

This takes the save-to folder from column C and new name from B

 Private Declare Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub download()
Dim lr As Long, r As Long
Dim FileToDownLoad$, NewFileName$, NewFilePath$


lr = Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To lr
    Application.StatusBar = r - 1 & " of " & lr - 1
    
    FileToDownLoad = Range("A" & r).Value
    NewFileName = Range("B" & r).Value & ".pdf"
    NewFilePath = Range("C" & r).Value: If Left(NewFilePath, 1) <> "\" Then NewFilePath = NewFilePath & "\"
    
    
    URLDownloadToFile 0, FileToDownLoad, NewFilePath & NewFileName, 0, 0
    DoEvents
Next
Application.StatusBar = False
End Sub