writing file name code

thanks very much for help

Try this

ChDir "C:\Users\Omri\Desktop\?AnyFolderName"
    Sheets("Format").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Omri\Desktop\AnyFolderName\" & namefile & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

worked sir, thank you very much

You're welcome. Glad I can offer little help.