Guardar archivos en carpetas con nombre personalizado

Tengo una macro que guarda en PDF cada salto de página de un excel, pero necesito que ademas se guarden en una carpeta creada con un valor de una celda "X", carpetas separadas. ¿Se entiende?

Por ejemplo: si se exportan 10 archivos PDF de un libro de excel separado por saltos de páginas, estos 10 PDF se guarden en carpetas únicas con un nombre de una celda de excel

Adjunto la macro que ya funciona

Sub Save_as_PDF()
Application.ScreenUpdating = False
Dim number_of_files As Integer
number_of_files = ActiveSheet.HPageBreaks.Count
filename0 = ThisWorkbook.Path & "\"
For x = 1 To number_of_files
row_pagebreak = ActiveSheet.HPageBreaks(x).Location.Row
filename1 = ActiveSheet.Cells(row_pagebreak - 1, 1).Value
full_filename = filename0 & filename1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
full_filename, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=x, To:=x, OpenAfterPublish:=False
Next
End Sub