Hi Guys,

I already have a code below which perfectly to save an excel sheet as a pdf file. But the problem is it saves it in a set location as specified in the code, what I want to achieve is to be able to bring up a promt box to select the location to save this PDF to. I'm sure it is a simple code edit, but I am fairly useless when it comes to coding and couldn't find it anywhere on the internet (perhaps due to rubbish search terms).

Any help is very much appreciated. 

Worksheets("PDF2").Visible = True

Sheets("PDF2").Activate



    ThisFile = Range("O6").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisFile, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
         
            Sheets("FOBs").Activate
    Worksheets("PDF2").Visible = False