Печать веб-страницы в формате PDF на основе значений ячеек

Question

У меня есть код, который будет l oop через URL-адреса, которые находятся в столбце B, и распечатывается как Pdf. Этот макрос прекрасно работает до сих пор. У меня вопрос, я хочу сохранить PDF на основе значений ячеек в столбце A в соответствующем пути столбца C.

Sub SaveAsPDF()
Dim Explorer As Object
Dim eQuery As Long
Dim i As Integer
Dim fTime As Single
    Lr1 = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    For L = 2 To Lr1
        Set Explorer = CreateObject("InternetExplorer.Application")
        URL = ThisWorkbook.Sheets("Sheet1").Range("B" & L)
        Explorer.Navigate URL
TryAgain:
            fTime = Timer
                Do While fTime > Timer - 5
                DoEvents
            Loop
        eQuery = Explorer.QueryStatusWB(6)
        If eQuery And 2 Then
            Explorer.ExecWB 6, 2, "", ""
                fTime = Timer
                    Do While fTime > Timer - 2
                    DoEvents
                Loop
            Else
GoTo TryAgain
        End If
    Next L
End Sub

Спасибо за помощь.