VBA code - Save file to folder within workbook path

[floggingmolly]

I have a code that creates a pdf and saves it in the folder where the workbook is saved. I have a sub folder PDF FILES. Is there a way to save to the PDF folder without using a full patch like c:\user\workbook\pdf files? Below is the code I have so far. Any help would be greatly appreciated.

FileName = ThisWorkbook.Path & "\" & .Range("F" & CustRow).Value & "_" & .Range("K" & CustRow).Value & ".pdf"

 

[DanteAmor]

Something like this:

    [COLOR=#0000ff]sFolder[/COLOR] = Environ("userprofile") & "\workbook\pdf files\"
    FileName = [COLOR=#0000FF]sFolder[/COLOR] & .Range("F" & CustRow).Value & "_" & .Range("K" & CustRow).Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False