macro that opens webpage and automatically prints it

[glide2131]

The attached macro will loop through a series of websites that are dictated on "Sheet1" and then send that page to the printer automatically.
What I am trying to do is to print to pdf using adobe pdf. To do this I just changed my printer default to the "adobe pdf" so the save as box pops up for every website that is opened.
This is what I need help with: I am trying to automate the saving function so I don't have to pick a folder location and click save.
I have dedicated column C for the folder locations and I would like to name the pdf documents by the names listed in column A.
Can anyone please help me with this?