Replace this

'Change your Destination Location Here...
sSaveLocation = "D:\"
With

'Change your Destination Location Here...
sSaveLocation = "D:\" & "YourFileName" & ".PDF"