Hi, I am using the below code to generate a PDF of my spreadsheet. I need to add to this code, a feature that will check if the file name you are trying to create, ready exists in the directory that you are trying to save it in, and then allows you to change the name if it does exist, or carries on as normal if it doesn't exist. I know i need to create another variable of the file path, but am completely oblivious of how to do the rest. Any help is appreciated. Thanks
Sub PrintPDFAll()
 
 ThisWorkbook.Unprotect
 Worksheets("Entry").Unprotect
 
 
   Dim MySheetName As String
    MySheetName = "Entry2"
    Sheets("Entry").Copy After:=Sheets("Entry")
    ActiveSheet.Name = MySheetName
Range("ALL").FormatConditions.Delete
Range("ALL").Interior.ColorIndex = 0

'turn off screen updating
    Application.ScreenUpdating = False
    'open dialog and set file type
  Opendialog = Application.GetSaveAsFilename("", FileFilter:="PDF Files (*.pdf), *.pdf", _
                                        Title:="Quote")
     
    'if no value is added for file name
    If Opendialog = False Then
        MsgBox "The operation was not successful"
        
        Application.DisplayAlerts = False
Sheets("Entry2").Delete
Worksheets("Entry").Activate
        Exit Sub
        
        
    End If
      
    'create the pdf
    On Error Resume Next
    
 Sheets("Summary").Move Before:=Sheets(1)
    Sheets("Breakdown").Move Before:=Sheets(2)
    Sheets("Entry2").Move Before:=Sheets(3)
Sheets(Array("Entry2", "Breakdown", "Summary")).Select

  
  
  With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .CenterHorizontally = True
        .CenterVertically = True
        .BottomMargin = 0
        .TopMargin = 0
        .RightMargin = 0
        .LeftMargin = 0
        
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Opendialog, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    'error handler
    On Error GoTo 0
    'clear the page breaks
    ActiveSheet.DisplayPageBreaks = False
    Application.ScreenUpdating = False
    

Application.DisplayAlerts = False
Sheets("Entry2").Delete
Sheets("Entry").Move Before:=Sheets(1)
    Sheets("Breakdown").Move Before:=Sheets(2)
    Sheets("Summary").Move Before:=Sheets(3)
    
Worksheets("Entry").Activate
Worksheets("Entry").Protect
ThisWorkbook.Protect

End Sub