excel lowest bid gets the job with good rating.

This is the current code, need you to edit it for save file in PDF with file name from A1. it should overwrite if existing file. file should save to C:\Users\User\OneDrive\Invoice NAT\ Sub CreatePDF() Dim wSheet As Worksheet Dim vFile As Variant Dim sFile As String Set wSheet = ActiveSheet sFile = Replace(Replace([login to view URL], " ", ""), ".", "_") _ & Range("A1") _ & ".pdf" sFile = [login to view URL] & "" & sFile vFile = [login to view URL] _ (InitialFileName:=sFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") If Dir(vFile) > vbNullString Then _ If MsgBox("Overwrite File?", _ vbExclamation + vbYesNo, "Overwrite?") = vbNo Then Exit Sub If vFile <> "False" Then [login to view URL]("B2:J44").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=vFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True MsgBox "PDF file has been created." End If End Sub