SOLVED

Re: Macro to save as PDF with auto filename as cell value

%3CLINGO-SUB%20id%3D%22lingo-sub-73779%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-73779%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20I%20recently%20used%20the%20following%20Macro%2C%20provided%20by%20Gary's%20Student%2C%20to%20create%20a%20PDF%20from%20an%20active%20sheet%2C%20generate%20a%20unique%20Filename%20based%20on%20a%20cell%20ref%20and%20save%20it%20to%20a%20specific%20location.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThis%20macro%20works%20well%20for%20me%2C%20however%2C%20I%20would%20like%20to%20add%20to%20it%20so%20that%20I%20can%20also%20attach%20it%20too%20and%20email%20and%20send%20to%20a%20specific%20email%20group%20(using%20Outlook).%20Maybe%20have%20it%20allow%20you%20to%20View%20so%20it%20can%20be%20sent%20manually%2C%20or%20the%20option%20to%20automatically%20send.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EBelow%20is%20the%20value%20I%20used%20to%20create%20the%20filename%20based%20on%20the%20date%20entry%20within%20I3%20and%20I%20formatted%20it%20as%20shown.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CEM%3ECell%20H1%20%22%3DI%3A%5C2017%20-%202018%5COperations%20Unit%5CDay%20Sheets%5C%22%26amp%3B%22DS_%22%26amp%3BTEXT(I3%2C%22yymmdd%22)%26amp%3B%22.PDF%22%3C%2FEM%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20Macro1()%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Es%20%3D%20Range(%22H1%22).Value%3C%2FP%3E%3CP%3E'%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3BActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%2C%26nbsp%3B%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DTrue%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPrivate%20Sub%20Worksheet_SelectionChange(ByVal%20Target%20As%20Range)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-73779%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EMacros%20%26amp%3B%20VBA%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3ENeed%20Help%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-305910%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-305910%22%20slang%3D%22en-US%22%3EWorked%20great..saves%20me%20at%20least%202hrs%20a%20week!%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-236058%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-236058%22%20slang%3D%22en-US%22%3E%3CP%3EHI%20Mark%2C%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20would%20guess%20you%20have%20two%20options.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E1.%20export%20the%20range%20without%20formatting%20(as%20the%20formatting%20happens%20to%20the%20worksheet%20not%20the%20pdf)%20see%20this%20link%20for%20an%20example%26nbsp%3B%3CA%20title%3D%22vba-script-that-saves-excel-range-as-pdf%22%20href%3D%22https%3A%2F%2Fstackoverflow.com%2Fquestions%2F13073888%2Fvba-script-that-saves-excel-range-as-pdf%22%20target%3D%22_self%22%20rel%3D%22nofollow%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%22%3Evba-script-that-saves-excel-range-as-pdf%3C%2FA%3E%3C%2FP%3E%3CP%3Eor%26nbsp%3B%3C%2FP%3E%3CP%3E2.%20copy%20the%20data%20(range)%20to%20a%20prepared%2Cformatted%20sheet%20or%2C%20new%20sheet%20and%20script%20the%20formatting.%20Then%20export%20the%20whole%20sheet%20using%20the%20previous%20examples%20in%20this%20thread.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-235120%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-235120%22%20slang%3D%22en-US%22%3E%3CP%3EHi%2C%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20been%20using%20VBA%20for%20over%20a%20year%2C%20and%20have%20used%20it%20to%20refresh%20multiple%20pivot%20tables%20in%20a%20stepwise%20fashion.%26nbsp%3B%20I%20am%20using%20Excel%20365%20for%20Mac%20which%20seems%20to%20have%20introduced%20some%20challenges%20learning%20from%20this%20wonderful%20thread.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20would%20be%20grateful%20for%20any%20assistance.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EEssentially%2C%20the%20PDF%20I%20would%20like%20to%20print%20is%20in%20a%20defined%20range%20on%20one%20of%20the%20worksheets%20in%20a%20workbook.%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20code%20below%20appears%20only%20to%20select%20the%20defined%20range%2C%20but%20does%20not%20print%20to%20a%20PDF%20driver.%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EMany%20thanks%20ML%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%20class%3D%22p1%22%3ESub%20PDF_Print_Summary()%3C%2FP%3E%3CP%20class%3D%22p1%22%3E'%3C%2FP%3E%3CP%20class%3D%22p1%22%3E'%20Print_test%20Macro%3C%2FP%3E%3CP%20class%3D%22p1%22%3E'%3C%2FP%3E%3CP%20class%3D%22p2%22%3E%26nbsp%3B%3C%2FP%3E%3CP%20class%3D%22p1%22%3E'%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%E2%80%98This%20is%20the%20name%20of%20the%20worksheet%20I%20want%20to%20print%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3ESheets(%22Summary%22).Select%3C%2FP%3E%3CP%20class%3D%22p2%22%3E%26nbsp%3B%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%E2%80%98This%20is%20the%20range%20where%20the%20report%20sits%20in%20the%20worksheet%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3ERange(%22B1%3AU1%22).Select%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3ERange(Selection%2C%20Selection.End(xlDown)).Select%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3ERange(%22B1%3AU82%22).Select%3C%2FP%3E%3CP%20class%3D%22p2%22%3E%26nbsp%3B%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%E2%80%98In%20the%20set%20up%20of%20the%20PDF%2C%20I%20would%20like%20to%20be%20able%20define%20some%20parameters%20such%20as%20narrow%20margins%2C%20using%20A4%20size%20paper%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EWith%20ActiveSheet.PageSetup%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintTitleRows%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintTitleColumns%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EEnd%20With%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EActiveSheet.PageSetup.PrintArea%20%3D%20%22%24B%241%3A%24U%2482%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EWith%20ActiveSheet.PageSetup%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftMargin%20%3D%20Application.InchesToPoints(0.25)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightMargin%20%3D%20Application.InchesToPoints(0.25)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.TopMargin%20%3D%20Application.InchesToPoints(0.75)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.BottomMargin%20%3D%20Application.InchesToPoints(0.75)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.HeaderMargin%20%3D%20Application.InchesToPoints(0.3)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FooterMargin%20%3D%20Application.InchesToPoints(0.3)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintHeadings%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintGridlines%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintComments%20%3D%20xlPrintSheetEnd%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterHorizontally%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterVertically%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Orientation%20%3D%20xlPortrait%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Draft%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PaperSize%20%3D%20xlPaperA4%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPageNumber%20%3D%20xlAutomatic%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Order%20%3D%20xlDownThenOver%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.BlackAndWhite%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Zoom%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FitToPagesWide%20%3D%201%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FitToPagesTall%20%3D%201%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintErrors%20%3D%20xlPrintErrorsDisplayed%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.OddAndEvenPagesHeaderFooter%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.DifferentFirstPageHeaderFooter%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.ScaleWithDocHeaderFooter%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.AlignMarginsHeaderFooter%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.LeftHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.CenterHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.RightHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.LeftFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.CenterFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.RightFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.LeftHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.CenterHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.RightHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.LeftFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.CenterFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.RightFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EEnd%20With%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EWith%20ActiveSheet.PageSetup%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintTitleRows%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintTitleColumns%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EEnd%20With%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EActiveSheet.PageSetup.PrintArea%20%3D%20%22%24B%241%3A%24U%2482%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EWith%20ActiveSheet.PageSetup%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftMargin%20%3D%20Application.InchesToPoints(0.25)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightMargin%20%3D%20Application.InchesToPoints(0.25)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.TopMargin%20%3D%20Application.InchesToPoints(0.75)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.BottomMargin%20%3D%20Application.InchesToPoints(0.75)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.HeaderMargin%20%3D%20Application.InchesToPoints(0.3)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FooterMargin%20%3D%20Application.InchesToPoints(0.3)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintHeadings%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintGridlines%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintComments%20%3D%20xlPrintSheetEnd%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterHorizontally%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterVertically%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Orientation%20%3D%20xlPortrait%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Draft%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PaperSize%20%3D%20xlPaperA4%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPageNumber%20%3D%20xlAutomatic%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Order%20%3D%20xlDownThenOver%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.BlackAndWhite%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Zoom%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FitToPagesWide%20%3D%201%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FitToPagesTall%20%3D%201%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintErrors%20%3D%20xlPrintErrorsDisplayed%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.OddAndEvenPagesHeaderFooter%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.DifferentFirstPageHeaderFooter%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.ScaleWithDocHeaderFooter%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.AlignMarginsHeaderFooter%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.LeftHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.CenterHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.RightHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.LeftFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.CenterFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.RightFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.LeftHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.CenterHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.RightHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.LeftFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.CenterFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.RightFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EEnd%20With%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EActiveSheet.PageSetup.PrintArea%20%3D%20%22%24B%241%3A%24U%2482%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EWith%20ActiveSheet.PageSetup%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintTitleRows%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintTitleColumns%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EEnd%20With%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EActiveSheet.PageSetup.PrintArea%20%3D%20%22%24B%241%3A%24U%2482%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EWith%20ActiveSheet.PageSetup%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightHeader%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightFooter%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.LeftMargin%20%3D%20Application.InchesToPoints(0.236220472440945)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.RightMargin%20%3D%20Application.InchesToPoints(0.236220472440945)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.TopMargin%20%3D%20Application.InchesToPoints(0.748031496062992)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.BottomMargin%20%3D%20Application.InchesToPoints(0.748031496062992)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.HeaderMargin%20%3D%20Application.InchesToPoints(0.31496062992126)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FooterMargin%20%3D%20Application.InchesToPoints(0.31496062992126)%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintHeadings%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintGridlines%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintComments%20%3D%20xlPrintSheetEnd%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterHorizontally%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.CenterVertically%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Orientation%20%3D%20xlPortrait%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Draft%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PaperSize%20%3D%20xlPaperA4%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPageNumber%20%3D%20xlAutomatic%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Order%20%3D%20xlDownThenOver%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.BlackAndWhite%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.Zoom%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FitToPagesWide%20%3D%201%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FitToPagesTall%20%3D%201%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.PrintErrors%20%3D%20xlPrintErrorsDisplayed%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.OddAndEvenPagesHeaderFooter%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.DifferentFirstPageHeaderFooter%20%3D%20False%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.ScaleWithDocHeaderFooter%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.AlignMarginsHeaderFooter%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.LeftHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.CenterHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.RightHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.LeftFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.CenterFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.EvenPage.RightFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.LeftHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.CenterHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.RightHeader.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.LeftFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.CenterFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3E.FirstPage.RightFooter.Text%20%3D%20%22%22%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EEnd%20With%3C%2FP%3E%3CP%20class%3D%22p1%22%3E%3CSPAN%20class%3D%22Apple-converted-space%22%3E%26nbsp%3B%20%26nbsp%3B%20%3C%2FSPAN%3EApplication.PrintCommunication%20%3D%20True%3C%2FP%3E%3CP%20class%3D%22p1%22%3EEnd%20Sub%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-214549%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-214549%22%20slang%3D%22en-US%22%3E%3CP%3EThanks%20Matt%20your%20a%20legend%2C%20never%20thought%20of%20that.%20I%20went%20with%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3DO4SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C5%2C%22%2F%22%2C%22_%22)%2C%22%5C%22%2C%22_%22)%2C%22%3A%22%2C%22_%22)%2C%22*%22%2C%22_%22)%2C%22%3F%22%2C%22_%22)%2C%22%26lt%3B%22%2C%22_%22)%2C%22%26gt%3B%22%2C%22_%22)%2C%22*%22%2C%22_%22)%26amp%3B%22%20%22%26amp%3BSUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C9%2C%22%2F%22%2C%22_%22)%2C%22%5C%22%2C%22_%22)%2C%22%3A%22%2C%22_%22)%2C%22*%22%2C%22_%22)%2C%22%3F%22%2C%22_%22)%2C%22%26lt%3B%22%2C%22_%22)%2C%22%26gt%3B%22%2C%22_%22)%2C%22*%22%2C%22_%22)%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-214529%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-214529%22%20slang%3D%22en-US%22%3E%3CP%3EMark-%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EYou%20can%20just%20error%20handle%20for%20that%20scenario%20by%20using%20the%20Replace()%20Function.%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CPRE%3Es%20%3D%20Replace(Replace(Replace(Range(%22O7%22)%2C%20%22%2F%22%2C%20%22_%22)%2C%20%22%5C%22%2C%20%22_%22)%2C%20%22%3A%22%2C%20%22_%22)%3C%2FPRE%3E%0A%3CP%3EThis%20will%20replace%20those%20special%20characters%20with%20an%20%22_%22%20which%20is%20acceptable%20for%20file%20names...%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-214498%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-214498%22%20slang%3D%22en-US%22%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThanks%20Andrew%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20below%20works%20great%20thanks%20with%20one%20exception.%20Is%20there%20any%20way%20if%20the%20user%20enters%20any%20of%20the%20following%20%5C%20%2F%20%3A%20*%20%3F%20%E2%80%9D%20%26lt%3B%20%26gt%3B%20%7Canywhere%20in%20both%20cell%20C5%20or%20C9%20a%20warning%20appears%20as%20these%20cells%20form%20the%20filename%20and%20the%20file%20cannot%20be%20saved%20if%20these%20symbols%20are%20contained%20anywhere%20within%20the%20text%20of%20these%20cells%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3ESub%20emailsavePDF()%3CBR%20%2F%3E%3CBR%20%2F%3EDim%20objOutlook%20As%20Object%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20objMail%20As%20Object%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20signature%20As%20String%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20oWB%20As%20Workbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20oWB%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20'%20MsgBox%20%22%3CBR%20%2F%3E'1%3A%20A%20customer%20must%20been%20selected%20in%20cell%20C4%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%3CBR%20%2F%3E'2%3A%20A%20trailer%20number%20must%20be%20entered%20in%20cell%20C5%20and%20must%20not%20contain%20any%20symbols%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%3CBR%20%2F%3E'3%3A%20A%20breif%20repair%20description%20must%20be%20entered%20in%20Cell%20C9%20and%20must%20not%20contain%20any%20symbols%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%3CBR%20%2F%3E'4%3A%20You%20are%20connected%20to%20the%20network%22%2C%20%2C%20%22THE%20FOLLOWING%20STEPS%20MUST%20BE%20COMPLETED%22%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3EWith%20Sheets(%22Estimate%22)%3CBR%20%2F%3E%3CBR%20%2F%3EIf%20.Range(%22C4%22)%20%3D%20Empty%20Then%3CBR%20%2F%3EMsgBox%20(%22A%20customer%20must%20been%20selected%20in%20cell%20C4%20and%20must%20not%20contain%20any%20symbols%22)%3CBR%20%2F%3E%26nbsp%3BEnd%3CBR%20%2F%3E%26nbsp%3BElseIf%20.Range(%22C5%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%26nbsp%3BMsgBox%20(%22A%20trailer%20number%20must%20be%20entered%20in%20cell%20C5%20and%20must%20not%20contain%20any%20symbols%22)%3CBR%20%2F%3E%26nbsp%3BEnd%3CBR%20%2F%3E%26nbsp%3BElseIf%20.Range(%22C9%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%26nbsp%3BMsgBox%20(%22A%20breif%20repair%20description%20must%20be%20entered%20in%20Cell%20C9%20and%20must%20not%20contain%20any%20symbols%22)%3CBR%20%2F%3E%26nbsp%3BEnd%3CBR%20%2F%3E%26nbsp%3BEnd%20If%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20With%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%20%3D%20Range(%22O7%22).Value%3CBR%20%2F%3E%26nbsp%3B%20%3CBR%20%2F%3E%26nbsp%3B'%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20PDF_File%20%3D%20Range(%22O7%22).Value%20%26amp%3B%20%22.pdf%22%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20signature%20%3D%20objMail.HTMLbody%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.To%20%3D%20Sheets(%22Estimate%22).Range(%22O9%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Cc%20%3D%20Sheets(%22Estimate%22).Range(%22O10%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Subject%20%3D%20Range(%22O12%22).Value%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.HTMLbody%20%3D%20%22Hi%3B%3CP%3EPlease%20find%20attached%20estimate%20for%20trailer%20%22%20%26amp%3B%20Range(%22O13%22)%20%26amp%3B%20%22%3C%2FP%3E%3CP%3E%20Any%20questions%20please%20don't%20hesitate%20to%20ask.%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Attachments.Add%20PDF_File%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Save%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20Nothing%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20Nothing%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3EEnd%20Sub%3CBR%20%2F%3ESub%20emailsaveexcel()%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20newWB%20As%20Variant%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20wb1%20As%20Workbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20wb1%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20wb1%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.SaveCopyAs%20Sheets(%22Estimate%22).Range(%22O5%22).Text%20%26amp%3B%20%22.xlsm%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20Sub%3C%2FP%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Eggg%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-210674%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-210674%22%20slang%3D%22en-US%22%3E%3CP%3EYou%20could%20use%26nbsp%3BWScript.Network%20to%20connect%20to%2F%20test%20for%20mapped%20drives%3F%20(the%20network)%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CA%20title%3D%22https%3A%2F%2Fss64.com%2Fvb%2Fnetwork.html%22%20href%3D%22https%3A%2F%2Fss64.com%2Fvb%2Fnetwork.html%22%20target%3D%22_self%22%20rel%3D%22nofollow%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%22%3Ehttps%3A%2F%2Fss64.com%2Fvb%2Fnetwork.html%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ethe%20error%20handler%20is%20very%20general%20and%20will%20display%20a%20message%20showing%20any%20code%20problems%20it%20catches.%20its%20up%20to%20you%20to%20decide%20what%20to%20do%20with%20the%20errors.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3ESub%20emailsavePDF()%3CBR%20%2F%3E%3CBR%20%2F%3Eon%20error%20Goto%20ErrHandler%3CBR%20%2F%3E%3CBR%20%2F%3E%20Dim%20objOutlook%20As%20Object%3CBR%20%2F%3E%20Dim%20objMail%20As%20Object%3CBR%20%2F%3E%20Dim%20signature%20As%20String%3CBR%20%2F%3E%20Dim%20oWB%20As%20Workbook%3CBR%20%2F%3E%3CBR%20%2F%3E%20Set%20oWB%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E'%20MsgBox%20%22%3CBR%20%2F%3E'1%3A%20A%20customer%20must%20been%20selected%20in%20cell%20C4%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%3CBR%20%2F%3E'2%3A%20A%20trailer%20number%20must%20be%20entered%20in%20cell%20C5%20and%20must%20not%20contain%20any%20symbols%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%3CBR%20%2F%3E'3%3A%20A%20breif%20repair%20description%20must%20be%20entered%20in%20Cell%20C9%20and%20must%20not%20contain%20any%20symbols%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%3CBR%20%2F%3E'4%3A%20You%20are%20connected%20to%20the%20network%22%2C%20%2C%20%22THE%20FOLLOWING%20STEPS%20MUST%20BE%20COMPLETED%22%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3EWith%20Sheets(%22Estimate%22)%3CBR%20%2F%3E%3CBR%20%2F%3EIf%20.Range(%22C4%22)%20%3D%20Empty%20Then%3CBR%20%2F%3EMsgBox%20(%22A%20customer%20must%20been%20selected%20in%20cell%20C4%20and%20must%20not%20contain%20any%20symbols%22)%3CBR%20%2F%3E%20End%3CBR%20%2F%3E%20ElseIf%20.Range(%22C5%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%20MsgBox%20(%22A%20trailer%20number%20must%20be%20entered%20in%20cell%20C5%20and%20must%20not%20contain%20any%20symbols%22)%3CBR%20%2F%3E%20End%3CBR%20%2F%3E%20ElseIf%20.Range(%22C9%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%20MsgBox%20(%22A%20breif%20repair%20description%20must%20be%20entered%20in%20Cell%20C9%20and%20must%20not%20contain%20any%20symbols%22)%3CBR%20%2F%3E%20End%3CBR%20%2F%3E%20End%20If%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%20s%20%3D%20Range(%22O7%22).Value%20'excel%20file%20name%3CBR%20%2F%3E%3CBR%20%2F%3E%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3Ds%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3CBR%20%2F%3E%3CBR%20%2F%3E%20PDF_File%20%3D%20s%20%26amp%3B%20%22.pdf%22%20'pdf%20file%20name%3CBR%20%2F%3E%3CBR%20%2F%3E%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3CBR%20%2F%3E%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%3CBR%20%2F%3E%3CBR%20%2F%3E%20With%20objMail%3CBR%20%2F%3E%3CBR%20%2F%3E%20.display%3CBR%20%2F%3E%3CBR%20%2F%3E%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%20signature%20%3D%20objMail.HTMLbody%3CBR%20%2F%3E%3CBR%20%2F%3E%20With%20objMail%3CBR%20%2F%3E%3CBR%20%2F%3E%20.To%20%3D%20Sheets(%22Estimate%22).Range(%22O9%22)%3CBR%20%2F%3E%20.Cc%20%3D%20Sheets(%22Estimate%22).Range(%22O10%22)%3CBR%20%2F%3E%20.Subject%20%3D%20Range(%22O12%22).Value%3CBR%20%2F%3E%20.HTMLbody%20%3D%20%22Hi%3B%3CP%3EPlease%20find%20attached%20estimate%20for%20trailer%20%22%20%26amp%3B%20Range(%22O13%22)%20%26amp%3B%20%22%3C%2FP%3E%3CP%3E%20Any%20questions%20please%20don't%20hesitate%20to%20ask.%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%22%3CBR%20%2F%3E%20.Attachments.Add%20PDF_File%3CBR%20%2F%3E%20.Save%3CBR%20%2F%3E%20.display%3CBR%20%2F%3E%3CBR%20%2F%3E%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%20Set%20objOutlook%20%3D%20Nothing%3CBR%20%2F%3E%3CBR%20%2F%3E%20Set%20objMail%20%3D%20Nothing%3CBR%20%2F%3E%3CBR%20%2F%3EErrHandler%3A%3CBR%20%2F%3E%20With%20Err%3CBR%20%2F%3E%3CBR%20%2F%3E%20Select%20Case%20.Number%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20Case%201004%20'add%20code%20for%201004%20error%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20MsgBox%20%22Error%3A%20%22%20%26amp%3B%20Err.Number%20%26amp%3B%20vbNewLine%20%26amp%3B%20vbNewLine%20%26amp%3B%20Err.Description%2C%20vbOKOnly%20%2B%20vbExclamation%2C%20%22Error%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20Case%20Else%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20MsgBox%20%22Error%3A%20%22%20%26amp%3B%20Err.Number%20%26amp%3B%20vbNewLine%20%26amp%3B%20vbNewLine%20%26amp%3B%20Err.Description%2C%20vbOKOnly%20%2B%20vbExclamation%2C%20%22Error%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20End%20Select%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20Resume%20Next%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20End%20With%3CBR%20%2F%3EEnd%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3ESub%20emailsaveexcel()%3CBR%20%2F%3E%3CBR%20%2F%3E%20Dim%20newWB%20As%20Variant%3CBR%20%2F%3E%3CBR%20%2F%3E%20Dim%20wb1%20As%20Workbook%3CBR%20%2F%3E%3CBR%20%2F%3E%20Set%20wb1%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%3CBR%20%2F%3E%20With%20wb1%3CBR%20%2F%3E%3CBR%20%2F%3E%20.SaveCopyAs%20Sheets(%22Estimate%22).Range(%22O5%22).Text%20%26amp%3B%20%22.xlsm%22%3CBR%20%2F%3E%3CBR%20%2F%3E%20End%20With%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-210263%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-210263%22%20slang%3D%22en-US%22%3E%3CP%3EMark-%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3ETry%20something%20like%20this%3A%3C%2FP%3E%0A%3CPRE%3ESub%20WhateverSub()%0A%0AOn%20Error%20GoTo%20ErrHandler%0A%0A'Your%20Code%20Here....%0A%0AExit%20Sub%0A%0AErrHandler%3A%0A%0A%0A%20%20%20%20'If%20one%20of%20these%20cells%20is%20blank....%0A%20%20%20%20If%20Range(%22C4%22)%20%3D%20vbNullString%20Or%20Range(%22C6%22)%20%3D%20vbNullString%20Or%20Range(%22C9%22)%20%3D%20vbNullString%20Then%0A%20%20%20%20%20%20%20%20MsgBox%20%22Please%20fill%20in%20cells%20O7%2C%20C6%20and%20C9%20they%20are%20mandatory%20fields%20that%20%22%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%26amp%3B%20%22have%20been%20left%20blank!!%22%2C%20vbCritical%2C%20%22Error%20Message%22%0A%20%20%20%20%20%20%20%20Exit%20Sub%0A%20%20%20%20Else%0A%20%20%20%20'Some%20other%20error%20like%20a%20VPN%20error%0A%20%20%20%20%20%20%20%20MsgBox%20%22Please%20make%20sure%20you%20have%20a%20network%20connection!%22%2C%20vbCritical%2C%20%22Error%20Message%22%0A%20%20%20%20%20%20%20%20Exit%20Sub%0A%20%20%20%20%0A%20%20%20%20End%20If%0A%0AEnd%20Sub%0A%3C%2FPRE%3E%0A%3CP%3EYou%20can%20check%20to%20see%20if%20a%20directory%20exists%20like%20this....%3C%2FP%3E%0A%3CPRE%3EIf%20Dir(%22C%3A%5CUsers%5Cmmickle1%5CDocuments%5C%22%2C%20vbDirectory)%20%3D%20%22%22%20Then%0A%20%20%20%20MsgBox%20%22Directory%20does%20not%20exist...%22%0AEnd%20If%3C%2FPRE%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EYou%20may%20consider%20having%20some%20data%20validation%20to%20light%20up%20a%20cell%20red%20if%20the%20mandatory%20fields%20are%20not%20filled%20in%20as%20an%20extra%20safe%20guard...%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EHere's%20the%20original%20article%20I%20learned%20about%20error%20handling%20with...%20it's%20pretty%20thorough.%26nbsp%3B%20In%20fact%20I%20still%20reference%20it%20occasionally%20%3A%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%3CA%20href%3D%22http%3A%2F%2Fwww.cpearson.com%2Fexcel%2Ferrorhandling.htm%22%20target%3D%22_blank%22%20rel%3D%22nofollow%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%22%3EChip%20Pearson%20Error%20Handling%3C%2FA%3E%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-210192%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-210192%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20Matt%2FAndrew%3C%2FP%3E%3CP%3EO7%20Contains%20a%20formula%20something%20like%20%3DO6%26amp%3BC5%26amp%3B%22%20%22%26amp%3BC9%20so%20the%20filename%2Fdirectory%20is%20the%20combined%20contents%20of%20cells%20c5%20(Unit%20number)%20and%20c9%20(repair%20description)%20the%20directory%20the%20file%20is%20being%20saved%20in%20(Which%20varies%20on%20a%20drop%20down%20placed%20in%20cell%20C4)%20must%20also%20be%20selected%20or%20the%20formula%20will%20not%20know%20where%20to%20save%20it.%20The%20directory%20varies%20depending%20on%20customer%20the%20spreadsheet%20is%20being%20used%20for.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EJust%20the%20elaborate%20the%20Macro%20works%20perfectly%20for%20me%20I%20just%20need%20a%20pop%20up%20message%20if%20cells%2006%20C6%20and%20C9%20are%20left%20blank%20as%20this%20will%20cause%20an%20error%20as%20the%20Macro%20will%20not%20know%20where%20to%20save%20if%20C4%20is%20blank%20(Technically%20the%20user%20only%20needs%20to%20put%20text%20in%20one%20box%20for%20the%20file%20name%20O6%20or%20C5)%20an%20error%20will%20only%20occur%20if%20both%20are%20blank.%20The%20only%20other%20time%20an%20error%20would%20occur%20is%20if%20the%20user%20is%20not%20connected%20to%20our%20network%20as%20all%20of%20the%20directory%E2%80%99s%20are%20on%20our%20network%20drive.%20The%20user%20does%20not%20see%20or%20edit%20Cell%20O7%3C%2FP%3E%3CP%3EI%20need%20an%20error%20handling%20code%20reminding%20the%20user%20to%20fill%20in%20these%20cells%20if%20they%20forget%20rather%20than%20the%20standard%20Excel%20message%20which%20doesn't%20really%20help%20the%20user.%20It%20may%20be%20possible%20to%20have%20a%20Macro%20telling%20the%20user%20to%20fill%20in%20these%20cells%20but%20an%20error%20will%20still%20occur%20if%20they%20are%20not%20connected%20to%20our%20network%2FVPN%20so%20error%20message%20will%20still%20occur.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ECode%20without%20my%20attempt%20at%20error%20goto%20below%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20emailsavePDF()%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EDim%20objOutlook%20As%20Object%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20objMail%20As%20Object%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20signature%20As%20String%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20oWB%20As%20Workbook%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20oWB%20%3D%20ActiveWorkbook%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%20%3D%20Range(%22O7%22).Value%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B'%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20PDF_File%20%3D%20Range(%22O7%22).Value%20%26amp%3B%20%22.pdf%22%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20signature%20%3D%20objMail.HTMLbody%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.To%20%3D%20Sheets(%22Estimate%22).Range(%22O9%22)%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Cc%20%3D%20Sheets(%22Estimate%22).Range(%22O10%22)%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Subject%20%3D%20Range(%22O12%22).Value%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.HTMLbody%20%3D%20%22Hi%3B%3C%2FP%3E%3CP%3EPlease%20find%20attached%20estimate%20for%20trailer%20%22%20%26amp%3B%20Range(%22O13%22)%20%26amp%3B%20%22%3C%2FP%3E%3CP%3E%20Any%20questions%20please%20don't%20hesitate%20to%20ask.%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%22%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Attachments.Add%20PDF_File%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Save%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20Nothing%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20Nothing%3C%2FP%3E%3CP%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20emailsaveexcel()%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20newWB%20As%20Variant%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20wb1%20As%20Workbook%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20wb1%20%3D%20ActiveWorkbook%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20wb1%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.SaveCopyAs%20Sheets(%22Estimate%22).Range(%22O5%22).Text%20%26amp%3B%20%22.xlsm%22%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-210112%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-210112%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20Mark%2C%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI'm%20glad%20to%20see%20this%20code%20has%20been%20helpful%20and%20is%20still%20being%20developed.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E1.%20you%20are%20not%20using%20the%20error%20function%20correctly.%3C%2FP%3E%3CP%3E2.%20your%20PDF_FILE%20variable%20does%20not%20reference%20a%20sheet%3C%2FP%3E%3CP%3E3.%20your%26nbsp%3Bs%20variable%20does%20not%20reference%20a%20sheet%20and%20is%20a%20duplicate%20of%20PDF_FILE%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EExample%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPublic%20wb%20As%20Workbook%3CBR%20%2F%3EPublic%20sh%20As%20Worksheet%3C%2FP%3E%3CP%3E%3CBR%20%2F%3EPrivate%20Sub%20Test()%3C%2FP%3E%3CP%3EOn%20Error%20GoTo%20errormessage%3C%2FP%3E%3CP%3ESet%20wb%20%3D%20ActiveWorkbook%3CBR%20%2F%3ESet%20sh%20%3D%20ActiveSheet%3C%2FP%3E%3CP%3EWith%20sh%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20If%20.Range(%22C4%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20MsgBox%20(%22please%20enter%20values%20in%20C4%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ElseIf%20.Range(%22C5%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20MsgBox%20(%22please%20enter%20values%20in%20C5%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ElseIf%20.Range(%22C9%22)%20%3D%20Empty%20Then%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20MsgBox%20(%22please%20enter%20values%20in%20C9%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20If%3C%2FP%3E%3CP%3EEnd%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EDim%20Filename%20As%20String%3C%2FP%3E%3CP%3EFilename%20%3D%20%22C%3A%5CUsers%5CPublic%5CDocuments%5C%22%20%26amp%3B%20sh.Range(%22O5%22).Value%20%26amp%3B%20%22.xlsm%22%3C%2FP%3E%3CP%3Ewb.SaveAs%20Filename%3A%3DFilename%2C%20FileFormat%3A%3DxlOpenXMLWorkbookMacroEnabled%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Eerrormessage%3A%3C%2FP%3E%3CP%3EWith%20Err%3C%2FP%3E%3CP%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Select%20Case%20.Number%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Case%201004%20'add%20code%20for%201004%20error%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20MsgBox%20%22Error%3A%20%22%20%26amp%3B%20Err.Number%20%26amp%3B%20vbNewLine%20%26amp%3B%20vbNewLine%20%26amp%3B%20Err.Description%2C%20vbOKOnly%20%2B%20vbExclamation%2C%20%22Error%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Case%20Else%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20MsgBox%20%22Error%3A%20%22%20%26amp%3B%20Err.Number%20%26amp%3B%20vbNewLine%20%26amp%3B%20vbNewLine%20%26amp%3B%20Err.Description%2C%20vbOKOnly%20%2B%20vbExclamation%2C%20%22Error%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20Select%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Resume%20Next%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3EEnd%20With%3C%2FP%3E%3CP%3EEndOfSub%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EEnd%20Sub%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-210110%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-210110%22%20slang%3D%22en-US%22%3E%3CP%3EIf%20your%20filename%20only%20consists%20of%20range%20O7%20then%20you%20will%20want%20to%20make%20sure%20that%20it%20is%20not%20left%20blank.%26nbsp%3B%20If%20this%20is%20the%20only%20scenario%20where%20you're%20getting%20an%20error%20you%20may%20not%20need%20any%20complex%20error%20handling.%26nbsp%3B%20YOu%20could%20probably%20get%20by%20with%20something%20like%20this%3A%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CPRE%3EIf%20Range(%22O7%22)%20%3D%20vbNullString%20Then%0A%20%20%20%20MsgBox%20%22Please%20fill%20in%20cell%20O7%20which%20contains%20the%20filename.%20%22%20_%0A%20%20%20%20%20%20%20%20%26amp%3B%20%22It%20has%20been%20left%20blank%22%2C%20vbCritical%2C%20%22Error%20Message%22%0A%20%20%20%20Exit%20Sub%0AEnd%20If%3C%2FPRE%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-209434%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-209434%22%20slang%3D%22en-US%22%3E%3CP%3EFormula%20works%20great%20but%20I%20need%20to%20make%20an%20amendment%20and%20struggling%20to%20get%20it%20working%20correctly.%3CBR%20%2F%3EI%20want%20a%20error%20message%20to%20appear%20telling%20the%20user%20to%20check%20they%20have%20met%20certain%20conditions%20should%20they%20forget%20to%20complete%20certain%20cells%20which%20constitute%20the%20file%20name%20the%20doc%20is%20to%20be%20saved%20as.%3CBR%20%2F%3EThere%20are%20x2%20Macros%20that%20run%20together%20email%20and%20save%20PDF%20and%20save%20Excel%20doc%20both%20below.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20inserted%20a%20goto%20On%20Error%20command%20but%20struggling%20getting%20it%20right.%20It%20either%20displays%20as%20soon%20as%20the%20Macros%20are%20run%20regardless%20of%20error%20existing%20or%20it%20displays%20x2%20times%20for%20each%20macro%20and%20then%20(even%20if%20the%20cells%20are%20left%20blank)%20continues%20to%20save%20the%20excel%20doc%20with%20no%20file%20name%20which%20I%20did%20not%20think%20was%20possible.%3CBR%20%2F%3E%3CBR%20%2F%3EI%20need%20the%20message%20to%20box%20to%20simply%20appear%20once%20and%20then%20end%2Fdo%20nothing%20after%20the%20user%20sees%20the%20message%20rather%20than%20save%20the%20excel%20doc%20with%20no%20filename.%3CBR%20%2F%3E%3CBR%20%2F%3E%3C%2FP%3E%3CPRE%3ESub%20emailsavePDF()%3CBR%20%2F%3E%3CBR%20%2F%3EDim%20objOutlook%20As%20Object%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20objMail%20As%20Object%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20signature%20As%20String%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20oWB%20As%20Workbook%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20oWB%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20On%20Error%20GoTo%20ErrMsg%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%20%3D%20Range(%22O7%22).Value%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B'%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3CBR%20%2F%3E%3CBR%20%2F%3E%20PDF_File%20%3D%20Range(%22O7%22).Value%20%26amp%3B%20%22.pdf%22%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3BSet%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20signature%20%3D%20objMail.HTMLbody%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.To%20%3D%20Sheets(%22Estimate%22).Range(%22O9%22)%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Cc%20%3D%20Sheets(%22Estimate%22).Range(%22O10%22)%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Subject%20%3D%20Range(%22O12%22).Value%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.HTMLbody%20%3D%20%22Hi%3B%3CP%3EPlease%20find%20attached%20estimate%20for%20trailer%20%22%20%26amp%3B%20Range(%22O13%22)%20%26amp%3B%20%22%3C%2FP%3E%3CP%3E%20Any%20questions%20please%20don't%20hesitate%20to%20ask.%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%22%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Attachments.Add%20PDF_File%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Save%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Exit%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ErrMsg%3A%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3BMsgBox%20%221%3A%20A%20customer%20must%20been%20selected%20in%20cell%20C4%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%222%3A%20A%20trailer%20number%20must%20be%20entered%20in%20cell%20C5%20and%20must%20not%20contain%20any%20symbols%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%223%3A%20A%20breif%20repair%20description%26nbsp%3B%20must%20be%20entered%20in%20Cell%20C9%20and%20must%20not%20contain%20any%20symbols%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20%224%3A%20You%20are%20connected%20to%20the%20network%22%2C%20%2C%20%22THE%20FOLLOWING%20STEPS%20MUST%20BE%20COMPLETED%22%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Exit%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20Nothing%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20Nothing%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3ESub%20emailsaveexcel()%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20newWB%20As%20Variant%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20wb1%20As%20Workbook%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20wb1%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20wb1%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.SaveCopyAs%20Sheets(%22Estimate%22).Range(%22O5%22).Text%20%26amp%3B%20%22.xlsm%22%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3EExit%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3E%3C%2FP%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-202421%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-202421%22%20slang%3D%22en-US%22%3E%3CP%3EHey%20Mark-%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EGlad%20you%20were%20able%20to%20get%20it%26nbsp%3B%20working!%26nbsp%3B%20Please%20feel%20free%20to%20post%20back%20to%20the%20community%20if%20you%20have%20additional%20Excel%20questions.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-201944%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-201944%22%20slang%3D%22en-US%22%3E%3CP%3EThanks%20Matt%20sorted%20now%20appreciate%20the%20quick%20response.%20For%20anyone%20attempting%20a%20similar%20code%20I%20have%20also%20added%20a%20few%20things%20as%20wanted%20email%20subjectfield%20to%20display%20a%20variable%20cell%20value%20from%20an%20INDEX%2Flookup%20and%20also%20wanted%20the%20body%20of%20the%20email%20to%20include%20a%20variable%20cell%20value%20(I%20am%20too%20lazy%20to%20actually%20type%20the%20information%20in%20when%20the%20email%20opens!)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3ESub%20emailsavePDF()%3CBR%20%2F%3E%3CBR%20%2F%3EDim%20objOutlook%20As%20Object%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20objMail%20As%20Object%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20signature%20As%20String%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20oWB%20As%20Workbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20oWB%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%20%3D%20Range(%22O7%22).Value%3CBR%20%2F%3E%26nbsp%3B%20%3CBR%20%2F%3E%26nbsp%3B'%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20PDF_File%20%3D%20Range(%22O7%22).Value%20%26amp%3B%20%22.pdf%22%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20signature%20%3D%20objMail.HTMLbody%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.To%20%3D%20Sheets(%22Estimate%22).Range(%22O9%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Cc%20%3D%20Sheets(%22Estimate%22).Range(%22O10%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Subject%20%3D%20Range(%22N23%22).Value%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.HTMLbody%20%3D%20%22Hi%3B%3CP%3EPlease%20find%20attached%20estimate%20for%20trailer%20%22%20%26amp%3B%20Range(%22N24%22)%20%26amp%3B%20%22%3C%2FP%3E%3CP%3E%20Any%20questions%20please%20don't%20hesitate%20to%20ask.%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Attachments.Add%20PDF_File%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Save%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.display%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20Nothing%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20Nothing%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-197007%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-197007%22%20slang%3D%22en-US%22%3E%3CP%3EThese%20small%20edits%20should%20make%20the%20code%20work%20(Please%20see%20changes%20in%20bold)%3A%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CPRE%3ESub%20Email_Sheet_Click()%0A%0A%20%20%20%20Dim%20objOutlook%20As%20Object%0A%20%20%20%20Dim%20objMail%20As%20Object%0A%20%20%20%20Dim%20signature%20As%20String%0A%20%20%20%3CSTRONG%3E%20Dim%20PDF_FileName%20As%20String%3C%2FSTRONG%3E%0A%20%20%20%20Dim%20oWB%20As%20Workbook%0A%20%20%20%20Set%20oWB%20%3D%20ActiveWorkbook%0A%3CSTRONG%3E%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20'Change%20your%20string%20to%20this....%20PDF_FileName%0A%20%20%20%20%20'or%20change%20your%20cell%20value%20in%20A1%0A%20%20%20%20%20%0A%20%20%20%20%20'This%20is%20the%20name%20of%20your%20PDF...%0A%20%20%20%20%20'Change%20accordingly....%0A%20%20%20%20%20PDF_FileName%20%3D%20%22C%3A%5CUsers%5Cmmickle1%5CDesktop%5CDS_%22%20%26amp%3B%20Format(Now%2C%20%22YYMMDD%22)%20%26amp%3B%20%22.pdf%22%0A%3C%2FSTRONG%3E%20%0A%20%20%20%20%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%0A%20%20%20%20%20%20%20%20%20%3CSTRONG%3EPDF_FileName%3C%2FSTRONG%3E%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%0A%20%20%20%20%20%20%20%20%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%0A%20%0A%20%20%20%20%0A%20%20%20%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%0A%20%20%20%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20With%20objMail%0A%20%20%20%20%20%20%20%20.Display%0A%20%20%20%20End%20With%0A%20%20%20%20%20%20%20%20signature%20%3D%20objMail.HTMLbody%0A%20%20%20%20With%20objMail%0A%20%20%20%20%20%20%20%20.To%20%3D%20ActiveSheet.Range(%22A2%22)%0A%20%20%20%20%20%20%20%20.Cc%20%3D%20ActiveSheet.Range(%22A3%22)%0A%20%20%20%20%20%20%20%20.Subject%20%3D%20%22Insert%20Subject%20Here%22%0A%20%20%20%20%20%20%20%20.HTMLbody%20%3D%20%22%3CFONT%20face%3D%22%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22%20calibri%3D%22%22%3E%22%20%26amp%3B%20%22Hi%2C%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20%22Insert%20email%20body%20here%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%3C%2FFONT%3E%22%0A%20%20%20%20%20%20%20%3CSTRONG%3E%20.Attachments.Add%20PDF_FileName%20'Now%20that%20the%20name%20is%20correct%20it%20will%20work.%3C%2FSTRONG%3E%0A%20%20%20%20%20%20%20%20.Save%0A%20%20%20%20%20%20%20%20.Display%0A%20%20%20%20End%20With%0A%0A%20%20%20%20Set%20objOutlook%20%3D%20Nothing%0A%20%20%20%20Set%20objMail%20%3D%20Nothing%0AEnd%20Sub%3C%2FPRE%3E%0A%3CP%3EIf%20you%20have%20additional%20questions%20it%20may%20be%20beneficial%20to%20attach%20a%20sample%20file%20for%20testing.%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-196998%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-196998%22%20slang%3D%22en-US%22%3E%3CP%3EPlease%20help...%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThis%20code%20is%20perfect%20for%20what%20I%20want%20to%20do%20in%20order%20to%20simplify%20a%20procees%20repeated%20at%20work%20but%20am%20a%20little%20stuck.%20I%20have%20it%20working%20to%20a%20point..%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPDF%20Is%20saving%20in%20the%20directory%20pre%20set%20in%20Cell%20A1%20all%20ok.%3C%2FP%3E%3CP%3EOutlook%20then%20opens%20(no%20attachment%20and%20no%20email%20addresses%20inserted)%20and%20I%20then%20get%20the%20following%20error%20(See%20attached)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3BI%20do%20not%20need%20to%20save%20the%20doc%20with%20date.%20Happy%20to%20Modify%20Cell%20A1%20(C%3A%5CUsers%5Cmark%5CDesktop%5Cquotes%5C12345.pdf%20each%20time%20its%20used%20with%20the%20prefered%20directory%2Ffilename.%20Clearly%20there%20is%20some%20of%20the%20code%20and%20how%20it%20works%20am%20not%20understanding.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20dont%20understand%20why%20the%20email%20addresses%20dont%20pull%20through%20from%20cells%20A2%20and%20A3%20and%20not%20sure%20what%20I%20need%20to%20do%20in%20order%20to%20have%20the%20file%20which%20has%20saved%20ok%20in%20the%20required%20directy%20attach%20to%20the%20email.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIf%20anyone%20can%20help%20me%20get%20this%20working%20would%20be%20much%20appreciated%20also%20if%20any%20additional%20information%20is%20required%20just%20ask.%20Full%20VBA%20below....%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20Email_Sheet_Click()%3CBR%20%2F%3E%3CBR%20%2F%3EDim%20objOutlook%20As%20Object%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20objMail%20As%20Object%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20signature%20As%20String%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Dim%20oWB%20As%20Workbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20oWB%20%3D%20ActiveWorkbook%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%20%3D%20Range(%22A1%22).Value%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B'%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20PDF_File%20%3D%20%22Insert%20Path%20here%5CDS_%22%20%26amp%3B%20Format(Now%2C%20%22YYMMDD%22)%20%26amp%3B%20%22.pdf%22%3CBR%20%2F%3E%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%26nbsp%3B%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Display%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20signature%20%3D%20objMail.HTMLbody%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20With%20objMail%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.To%20%3D%20ActiveSheet.Range(%22A2%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Cc%20%3D%20ActiveSheet.Range(%22A3%22)%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Subject%20%3D%20%22Insert%20Subject%20Here%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.HTMLbody%20%3D%20%22%3CFONT%20face%3D%22%26quot%3B%22%3E%22%20%26amp%3B%20%22Hi%2C%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20%22Insert%20email%20body%20here%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%3C%2FFONT%3E%22%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Attachments.Add%20PDF_File%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Save%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20.Display%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20End%20With%3CBR%20%2F%3E%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objOutlook%20%3D%20Nothing%3CBR%20%2F%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%20Set%20objMail%20%3D%20Nothing%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EAny%20help%20will%20be%20much%20appreciated!%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-193527%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-193527%22%20slang%3D%22en-US%22%3E%3CP%3EFrom%20what%20I%20remember%20it's%20necessary%20to%20save%20the%20document%20to%20attach%20the%20file.%26nbsp%3B%20However%2C%20you%20can%20save%20the%20PDF%20to%20a%20temporary%20directory%20and%20then%20once%20done%20using%20it%20you%20can%20just%20delete%20it%3A%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EIt%20would%20look%20something%20like%20this%3A%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CPRE%3E%20%20%20%20%20TempFilePath%20%3D%20Environ%24(%22temp%22)%20%26amp%3B%20%22%5C%22%20'This%20defines%20the%20filepath%20---%26gt%3B%20C%3A%5CUsers%5Cusername%5CAppData%5CLocal%5CTemp%0A%20%20%20%20%20TempFileName%20%3D%20%22Your%20File%20Name%20Goes%20Here%22%20'Name%20File%20%20%20%20%20%20%3CBR%20%2F%3E%20%20%20%20%20ActiveWorkbook.SaveAs%20TempFilePath%20%26amp%3B%20TempFileName%20'Save%20file%20in%20Temporary%20Directory%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20'Email%20Workbook%20to%20people%0A%20%20%20%20With%20OutMail%0A%20%20%20%20%20%20%20%20.To%20%3D%20%22YourName%40Email.Com%22%0A%20%20%20%20%20%20%20%20.CC%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.BCC%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.Subject%20%3D%20%22This%20is%20the%20Subject%20line%22%0A%20%20%20%20%20%20%20%20.Body%20%3D%20%22This%20is%20the%20email%20body%22%20%20'Use%20%22Blah%20Blah%20Blah%22%20%26amp%3B%20Chr(13)%20%26amp%3B%20%22This%20is%20another%20line%22%0A%20%20%20%20%20%20%20%20.Attachments.Add%20TempFilePath%20%26amp%3B%20TempFileName%0A%20%20%20%20%20%20%20%20.Send%0A%20%20%20%20End%20With%0A%20%20%20%20%0A%20%20%20%20'Delete%20the%20Temporary%20File%20%0A%20%20%20%20Kill%20TempFilePath%20%26amp%3B%20TempFileName%3C%2FPRE%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-193377%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-193377%22%20slang%3D%22en-US%22%3E%3CP%3EI'm%20very%20new%20to%20coding%2C%20so%20I%20wanted%20to%20add%20a%20little%20twist%20to%20this%20thread.%20Is%20it%20possible%20to%20have%20a%20code%20to%20convert%20the%20current%20spreadsheet%20to%20PDF%2C%20create%20an%20email%20through%20Outlook%2C%20but%20not%20save%20the%20document%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThanks!%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-74702%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-74702%22%20slang%3D%22en-US%22%3E%3CP%3EAndrew%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EJust%20to%20let%20you%20know%20that%20the%20code%20below%20works%20well%20for%20me%2C%20and%20thank%20you%20again.%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSTRONG%3ECommand%20Button%3C%2FSTRONG%3E%3A%20-%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3COL%3E%3CLI%3EGenerates%20a%20pdf%20of%20the%20ActiveSheet%3C%2FLI%3E%3CLI%3ESaves%20pdf%20to%20a%20specific%20location%2C%20indicated%20in%20%3CSTRONG%3E%3CEM%3ECell%20H1%2C%3C%2FEM%3E%3C%2FSTRONG%3E%26nbsp%3Bwith%20an%26nbsp%3Bauto%20Filename%20based%20on%20the%20Sheet%20Date%26nbsp%3Bwithin%20%3CEM%3E%3CSTRONG%3ECell%20I3%2C%3C%2FSTRONG%3E%3C%2FEM%3E%26nbsp%3Bformatted%20as%20YYMMDD%3C%2FLI%3E%3CLI%3EOpens%20Outlook%20and%20displays%20email%26nbsp%3Bwith%20pdf%20attached%20%3CEM%3E(file%20with%26nbsp%3Bdate%20%22Now%22)%3C%2FEM%3E%3C%2FLI%3E%3CLI%3EAuto%20fills%20Recipients%2C%20reading%20from%20%3CEM%3E%3CSTRONG%3ECell%20C50%3C%2FSTRONG%3E%3C%2FEM%3E%3C%2FLI%3E%3CLI%3EEmail%20Body%20as%20required%3C%2FLI%3E%3C%2FOL%3E%3CP%3EWhen%20i'm%20happy%20i%20will%20change%20code%20to%20automatically%20send%20email%20not%20display.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Efor%20reference%3A-%3C%2FP%3E%3CP%3E%3CEM%3E%3CSTRONG%3ECell%20H1%3A%20%3C%2FSTRONG%3E%26nbsp%3B%3D%22I%3A%5C2017%20-%202018%5COperations%20Unit%5CDay%20Sheets%5C%22%26amp%3B%22DS_%22%26amp%3BTEXT(I3%2C%22yymmdd%22)%26amp%3B%22.PDF%22%3C%2FEM%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3EPrivate%20Sub%20Email_Sheet_Click()%0A%0ADim%20objOutlook%20As%20Object%0A%20%20%20%20Dim%20objMail%20As%20Object%0A%20%20%20%20Dim%20signature%20As%20String%0A%20%20%20%20Dim%20oWB%20As%20Workbook%0A%20%20%20%20Set%20oWB%20%3D%20ActiveWorkbook%0A%20%20%20%20%0A%20%20%20%20%0A%20%20%20%20%0A%20%20%20%20%20s%20%3D%20Range(%22h1%22).Value%20%0A%20%20%0A%20'%0A%20%20%20%20%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20FileName%3A%3D%20_%0A%20%20%20%20%20%20%20%20%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%0A%20%20%20%20%20%20%20%20%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%0A%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%0A%20%20%20%20PDF_File%20%3D%20%22Insert%20Path%20here%5CDS_%22%20%26amp%3B%20Format(Now%2C%20%22YYMMDD%22)%20%26amp%3B%20%22.pdf%22%0A%20%0A%20%20%20%20%0A%20%20%20%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%0A%20%20%20%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20With%20objMail%0A%20%20%20%20%20%20%20%20.Display%0A%20%20%20%20End%20With%0A%20%20%20%20%20%20%20%20signature%20%3D%20objMail.HTMLbody%0A%20%20%20%20With%20objMail%0A%20%20%20%20%20%20%20%20.To%20%3D%20ActiveSheet.Range(%22C50%22)%0A%20%20%20%20%20%20%20%20.Cc%20%3D%20ActiveSheet.Range(%22C55%22)%0A%20%20%20%20%20%20%20%20.Subject%20%3D%20%22Insert%20Subject%20Here%22%0A%20%20%20%20%20%20%20%20.HTMLbody%20%3D%20%22%26lt%3Bfont%20face%3D%22%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22Calibri%22%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22%20size%3D%22%20%26amp%3B%20Chr(34)%20%26amp%3B%204%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22%26gt%3B%22%20%26amp%3B%20%22Hi%2C%22%20%26amp%3B%20%22%26lt%3Bbr%26gt%3B%20%26lt%3Bbr%26gt%3B%22%20%26amp%3B%20%22Insert%20email%20body%20here%22%20%26amp%3B%20%22%26lt%3Bbr%26gt%3B%20%26lt%3Bbr%26gt%3B%22%20%26amp%3B%20signature%20%26amp%3B%20%22%26lt%3B%2Ffont%26gt%3B%22%0A%20%20%20%20%20%20%20%20.Attachments.Add%20PDF_File%0A%20%20%20%20%20%20%20%20.Save%0A%20%20%20%20%20%20%20%20.Display%0A%20%20%20%20End%20With%0A%0A%20%20%20%20Set%20objOutlook%20%3D%20Nothing%0A%20%20%20%20Set%20objMail%20%3D%20Nothing%0AEnd%20Sub%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-74627%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-74627%22%20slang%3D%22en-US%22%3E%3CP%3EThank%20you%20Andrew%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EYou%E2%80%98re%20no%20doubt%20aware%20that%20I%20am%20new%20to%20Coding%20and%20very%20much%20appreciate%20your%20response.%20I%20will%20hopefully%20be%20able%20to%20pass%20on%20assistance%20to%20others%20in%20the%20very%20near%20future.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-74569%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-74569%22%20slang%3D%22en-US%22%3E%3CP%3EAnd%20this%20is%20code%20to%20export%20to%20PDF%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EYou%20obviously%20need%20a%20full%20path%20as%20a%20string%20to%20save%20the%20file%20to%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3E%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3DstrSaveFileName%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%3A%3DFalse%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.SaveAs%20Filename%3A%3DstrSaveFileName%2C%20FileFormat%3A%3DxlOpenXMLTemplateMacroEnabled%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-74567%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-74567%22%20slang%3D%22en-US%22%3E%3CP%3EThis%20is%20code%20I%20use.%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CPRE%3EPrivate%20Sub%20Email()%0A%0A%20%20%20%20Dim%20objOutlook%20As%20Object%0A%20%20%20%20Dim%20objMail%20As%20Object%0A%20%20%20%20Dim%20signature%20As%20String%0A%20%20%20%20Dim%20oWB%20As%20Workbook%0A%20%20%20%20Set%20oWB%20%3D%20ActiveWorkbook%0A%20%20%20%20%0A%20%20%20%20Set%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%0A%20%20%20%20Set%20objMail%20%3D%20objOutlook.CreateItem(0)%0A%20%20%20%20%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20With%20objMail%0A%20%20%20%20%20%20%20%20.Display%0A%20%20%20%20End%20With%0A%20%20%20%20%20%20%20%20signature%20%3D%20objMail.HTMLbody%0A%20%20%20%20With%20objMail%0A%20%20%20%20%20%20%20%20.To%20%3D%20oWB.Sheets(%22Sheet1%22).Range(%22A1%22).Value%0A%20%20%20%20%20%20%20%20''.SentOnBehalfOfName%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.Subject%20%3D%20strMySubject%0A%20%20%20%20%20%20%20%20''.body%20%3D%20%22Dear%20Sir%2C%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20vbNewLine%20%26amp%3B%20%22Add%20stuff%20here%22%20%26amp%3B%20vbNewLine%20%26amp%3B%20vbNewLine%20%26amp%3B%20signature%0A%20%20%20%20%20%20%20%20.HTMLbody%20%3D%20%22%26lt%3Bfont%20face%3D%22%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22Calibri%22%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22%20size%3D%22%20%26amp%3B%20Chr(34)%20%26amp%3B%204%20%26amp%3B%20Chr(34)%20%26amp%3B%20%22%26gt%3B%22%20%26amp%3B%20%22Dear%20Sir%2C%22%20%26amp%3B%20%22%26lt%3Bbr%26gt%3B%20%26lt%3Bbr%26gt%3B%22%20%26amp%3B%20%22Add%20stuff%20here%22%20%26amp%3B%20%22%26lt%3Bbr%26gt%3B%20%26lt%3Bbr%26gt%3B%22%20%26amp%3B%20signature%20%26amp%3B%20%22%26lt%3B%2Ffont%26gt%3B%22%0A%20%20%20%20%20%20%20%20.Attachments.Add%20(strSaveFileName%20%2B%20%22.pdf%22)%0A%20%20%20%20%20%20%20%20.Display%0A%20%20%20%20End%20With%0A%0A%20%20%20%20Set%20objOutlook%20%3D%20Nothing%0A%20%20%20%20Set%20objMail%20%3D%20Nothing%0A%20%20%20%20%0AEnd%20Sub%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-74328%22%20slang%3D%22en-US%22%3ERE%3A%20Re%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-74328%22%20slang%3D%22en-US%22%3EFurther%20to%20my%20previous%20post%20I%20have%20managed%20to%20adapt%20the%20code%20to%20do%20what%20I%20required%3A%201.%20Create%20a%20pdf%20of%20ActiveSheet%202.%20Save%20pdf%20into%20a%20specific%20location%203.%20Name%20the%20pdf%20with%20a%20file%20name%20based%20on%20the%20sheet%20date%204.%20Open%20an%20email%2C%20with%20selected%20recipients%2C%20and%20attach%20the%20current%20pdf%20to%20and%20email%20If%20you%20have%20any%20suggestions%20to%20develop%20the%20code%20or%20see%20any%20possible%20errors%20please%20let%20me%20know.%20Sub%20Sent_Email()%20Dim%20olApp%20As%20Object%20s%20%3D%20Range(%22h1%22).Value%20'%20ActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20FileName%3A%3D%20_%20s%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%20%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%20PDF_File%20%3D%20%22I%3A%5C2017%20-%202018%5COperations%20Unit%5CDay%20Sheets%5CDS_%22%20%26amp%3B%20Format(Now%2C%20%22YYMMDD%22)%20%26amp%3B%20%22.pdf%22%20Set%20olApp%20%3D%20CreateObject(%22Outlook.Application%22)%20With%20olApp.CreateItem(0)%20.Subject%20%3D%20%22Daily%20Resource%20Sheet%22%20.To%20%3D%20ActiveSheet.Range(%22C50%22)%20.Cc%20%3D%20ActiveSheet.Range(%22C55%22)%20.Body%20%3D%20%22Hi%2C%22%20%26amp%3B%20vbLf%20%26amp%3B%20vbLf%20_%20%26amp%3B%20%22Please%20find%20attached%20the%20Daily%20Resource%20Sheet.%22%20%26amp%3B%20vbLf%20%26amp%3B%20vbLf%20_%20%26amp%3B%20%22Regards%2C%22%20%26amp%3B%20vbLf%20%26amp%3B%20vbLf%20_%20%26amp%3B%20%22Roads%20Operations%20Unit%22%20.Attachments.Add%20PDF_File%20.Save%20.Display%20End%20With%20End%20Sub%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-680193%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-680193%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F59582%22%20target%3D%22_blank%22%3E%40Andrew%20Jones%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHello%20Andrew%2C%20can%20you%20please%20help%20me%20out%2C%20i%20would%20like%20to%20create%20vba%20code%20for%20save%20as%20PDF%20and%20send%20by%20mail%2C%20i%20attached%20my%20file%20here%20as%20well%20the%20code%20which%20i%20use%2C%20but%20it%20does%20not%20work.%3C%2FP%3E%3CP%3EIs%20that%20possible%20as%20well%20to%20save%20PDF%20from%20the%20words%20from%20cell%20AJ1%20and%20use%20it%20as%20well%20as%20email%20subject%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20emailsavePDF()%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EDim%20objOutlook%20As%20Object%3C%2FP%3E%3CP%3EDim%20objMail%20As%20Object%3C%2FP%3E%3CP%3EDim%20signature%20As%20String%3C%2FP%3E%3CP%3EDim%20oWB%20As%20Workbook%3C%2FP%3E%3CP%3ESet%20oWB%20%3D%20ActiveWorkbook%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Es%20%3D%20Range(%22AJ1%22).Value%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E'%3C%2FP%3E%3CP%3EActiveSheet.ExportAsFixedFormat%20Type%3A%3DxlTypePDF%2C%20Filename%3A%3D%20_%3C%2FP%3E%3CP%3Es%2C%20Quality%3A%3DxlQualityStandard%2C%20IncludeDocProperties%20_%3C%2FP%3E%3CP%3E%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%2C%20OpenAfterPublish%3A%3DFalse%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPDF_File%20%3D%20Range(%22AJ1%22).Value%20%26amp%3B%20%22.pdf%22%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESet%20objOutlook%20%3D%20CreateObject(%22Outlook.Application%22)%3C%2FP%3E%3CP%3ESet%20objMail%20%3D%20objOutlook.CreateItem(0)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EWith%20objMail%3C%2FP%3E%3CP%3E.display%3C%2FP%3E%3CP%3EEnd%20With%3C%2FP%3E%3CP%3Esignature%20%3D%20objMail.HTMLbody%3C%2FP%3E%3CP%3EWith%20objMail%3C%2FP%3E%3CP%3E.To%20%3D%20r.muzammil%40gmail.com%3C%2FP%3E%3CP%3E.Cc%20%3D%20r.muzammil%40gmail.com%3C%2FP%3E%3CP%3E.Subject%20%3D%20Range(%22AJ2%22).Value%3C%2FP%3E%3CP%3E.HTMLbody%20%3D%20%22Hi%3B%3C%2FP%3E%3CP%3EPlease%20find%20attached%20estimate%20for%20trailer%20%22%20%26amp%3B%20Range(%22O13%22)%20%26amp%3B%20%22%3C%2FP%3E%3CP%3E%20Any%20questions%20please%20don't%20hesitate%20to%20ask.%22%20%26amp%3B%20%22%3CBR%20%2F%3E%20%3CBR%20%2F%3E%22%20%26amp%3B%20signature%20%26amp%3B%20%22%22%3C%2FP%3E%3CP%3E.Attachments.Add%20PDF_File%3C%2FP%3E%3CP%3E.Save%3C%2FP%3E%3CP%3E.display%3C%2FP%3E%3CP%3EEnd%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESet%20objOutlook%20%3D%20Nothing%3C%2FP%3E%3CP%3ESet%20objMail%20%3D%20Nothing%3C%2FP%3E%3CP%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1500537%22%20slang%3D%22en-US%22%3ERe%3A%20Macro%20to%20save%20as%20PDF%20with%20auto%20filename%20as%20cell%20value%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1500537%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F59582%22%20target%3D%22_blank%22%3E%40Andrew%20Jones%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ecode%20as%20you%20share%20not%20works%20in%20window%207%2F10%2064%20bit%20.%26nbsp%3B%20my%20cvode%20be%20below%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EDeclare%20Function%20RegOpenKeyA%20Lib%20%22advapi32.dll%22%20(%20_%3CBR%20%2F%3EByVal%20Key%20As%20Long%2C%20_%3CBR%20%2F%3EByVal%20SubKey%20As%20String%2C%20_%3CBR%20%2F%3ENewKey%20As%20Long)%20As%20Long%3CBR%20%2F%3EDeclare%20Function%20RegSetValueEx%20Lib%20%22advapi32.dll%22%20Alias%20%22RegSetValueExA%22%20(%20_%3CBR%20%2F%3EByVal%20hKey%20As%20Long%2C%20_%3CBR%20%2F%3EByVal%20lpValueName%20As%20String%2C%20_%3CBR%20%2F%3EByVal%20Reserved%20As%20Long%2C%20_%3CBR%20%2F%3EByVal%20dwType%20As%20Long%2C%20_%3CBR%20%2F%3ElpData%20As%20Any%2C%20_%3CBR%20%2F%3EByVal%20cbData%20As%20Long)%20As%20Long%3CBR%20%2F%3EDeclare%20Function%20RegCloseKey%20Lib%20%22advapi32.dll%22%20(%20_%3CBR%20%2F%3EByVal%20hKey%20As%20Long)%20As%20Long%3C%2FP%3E%3CP%3ESub%20PrintPDF()%3CBR%20%2F%3EDim%20sPath%20As%20String%3CBR%20%2F%3EDim%20strDefaultPrinter%20As%20String%3CBR%20%2F%3EDim%20strOutFile%20As%20String%3CBR%20%2F%3EDim%20lngRegResult%20As%20Long%3CBR%20%2F%3EDim%20lngResult%20As%20Long%3CBR%20%2F%3EDim%20dhcHKeyCurrentUser%20As%20Long%3CBR%20%2F%3EDim%20PDFPath%20As%20String%3CBR%20%2F%3EConst%20dhcRegSz%20As%20Long%20%3D%201%3CBR%20%2F%3E%3CBR%20%2F%3EdhcHKeyCurrentUser%20%3D%20%26amp%3BH80000001%3CBR%20%2F%3EstrDefaultPrinter%20%3D%20Application.ActivePrinter%3CBR%20%2F%3E%3CBR%20%2F%3EsPath%20%3D%20%22D%3A%5CJOBCARD201920%22%3CBR%20%2F%3EPDFPath%20%3D%20sPath%3CBR%20%2F%3E%3CBR%20%2F%3EstrOutFile%20%3D%20PDFPath%20%26amp%3B%20%22%5C%22%20%26amp%3B%20Range(%22G3%22).VALUE%20%26amp%3B%20%22.pdf%22%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3ElngRegResult%20%3D%20RegOpenKeyA(dhcHKeyCurrentUser%2C%20%22Software%5CAdobe%5CAcrobat%20Distiller%5CPrinterJobControl%22%2C%20_%3CBR%20%2F%3ElngResult)%3CBR%20%2F%3ElngRegResult%20%3D%20RegSetValueEx(lngResult%2C%20Application.Path%20%26amp%3B%20%22%5CExcel.exe%22%2C%200%26amp%3B%2C%20dhcRegSz%2C%20ByVal%20strOutFile%2C%20Len(strOutFile))%3CBR%20%2F%3ElngRegResult%20%3D%20RegCloseKey(lngResult)%3C%2FP%3E%3CP%3EThisWorkbook.ActiveSheet.PrintOut%20copies%3A%3D1%2C%20ActivePrinter%3A%3D%22Adobe%20PDF%22%3CBR%20%2F%3EApplication.ActivePrinter%20%3D%20strDefaultPrinter%3C%2FP%3E%3CP%3Eend%20sub%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
New Contributor

Hi I recently used the following Macro, provided by Gary's Student, to create a PDF from an active sheet, generate a unique Filename based on a cell ref and save it to a specific location.

 

This macro works well for me, however, I would like to add to it so that I can also attach it too and email and send to a specific email group (using Outlook). Maybe have it allow you to View so it can be sent manually, or the option to automatically send.

 

Below is the value I used to create the filename based on the date entry within I3 and I formatted it as shown.

 

Cell H1 "=I:\2017 - 2018\Operations Unit\Day Sheets\"&"DS_"&TEXT(I3,"yymmdd")&".PDF"

 

Sub Macro1()

 

s = Range("H1").Value

'

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

            s,  Quality:=xlQualityStandard, IncludeDocProperties _

            :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

End Sub

 

 

 

24 Replies
Highlighted

Thanks Matt your a legend, never thought of that. I went with

 

=O4SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C5,"/","_"),"\","_"),":","_"),"*","_"),"?","_"),"<","_"),">","_"),"*","_")&" "&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C9,"/","_"),"\","_"),":","_"),"*","_"),"?","_"),"<","_"),">","_"),"*","_")

Highlighted

Hi, 

I have been using VBA for over a year, and have used it to refresh multiple pivot tables in a stepwise fashion.  I am using Excel 365 for Mac which seems to have introduced some challenges learning from this wonderful thread.

 

I would be grateful for any assistance.

 

Essentially, the PDF I would like to print is in a defined range on one of the worksheets in a workbook.  

 

The code below appears only to select the defined range, but does not print to a PDF driver.  

 

Many thanks ML

 

 

Sub PDF_Print_Summary()

'

' Print_test Macro

'

 

'

‘This is the name of the worksheet I want to print

    Sheets("Summary").Select

 

‘This is the range where the report sits in the worksheet

    Range("B1:U1").Select

    Range(Selection, Selection.End(xlDown)).Select

    Range("B1:U82").Select

 

‘In the set up of the PDF, I would like to be able define some parameters such as narrow margins, using A4 size paper

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .PrintTitleRows = ""

        .PrintTitleColumns = ""

    End With

    Application.PrintCommunication = True

    ActiveSheet.PageSetup.PrintArea = "$B$1:$U$82"

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.25)

        .RightMargin = Application.InchesToPoints(0.25)

        .TopMargin = Application.InchesToPoints(0.75)

        .BottomMargin = Application.InchesToPoints(0.75)

        .HeaderMargin = Application.InchesToPoints(0.3)

        .FooterMargin = Application.InchesToPoints(0.3)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintSheetEnd

        .CenterHorizontally = True

        .CenterVertically = True

        .Orientation = xlPortrait

        .Draft = False

        .PaperSize = xlPaperA4

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = 1

        .PrintErrors = xlPrintErrorsDisplayed

        .OddAndEvenPagesHeaderFooter = False

        .DifferentFirstPageHeaderFooter = False

        .ScaleWithDocHeaderFooter = True

        .AlignMarginsHeaderFooter = True

        .EvenPage.LeftHeader.Text = ""

        .EvenPage.CenterHeader.Text = ""

        .EvenPage.RightHeader.Text = ""

        .EvenPage.LeftFooter.Text = ""

        .EvenPage.CenterFooter.Text = ""

        .EvenPage.RightFooter.Text = ""

        .FirstPage.LeftHeader.Text = ""

        .FirstPage.CenterHeader.Text = ""

        .FirstPage.RightHeader.Text = ""

        .FirstPage.LeftFooter.Text = ""

        .FirstPage.CenterFooter.Text = ""

        .FirstPage.RightFooter.Text = ""

    End With

    Application.PrintCommunication = True

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .PrintTitleRows = ""

        .PrintTitleColumns = ""

    End With

    Application.PrintCommunication = True

    ActiveSheet.PageSetup.PrintArea = "$B$1:$U$82"

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.25)

        .RightMargin = Application.InchesToPoints(0.25)

        .TopMargin = Application.InchesToPoints(0.75)

        .BottomMargin = Application.InchesToPoints(0.75)

        .HeaderMargin = Application.InchesToPoints(0.3)

        .FooterMargin = Application.InchesToPoints(0.3)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintSheetEnd

        .CenterHorizontally = True

        .CenterVertically = True

        .Orientation = xlPortrait

        .Draft = False

        .PaperSize = xlPaperA4

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = 1

        .PrintErrors = xlPrintErrorsDisplayed

        .OddAndEvenPagesHeaderFooter = False

        .DifferentFirstPageHeaderFooter = False

        .ScaleWithDocHeaderFooter = True

        .AlignMarginsHeaderFooter = True

        .EvenPage.LeftHeader.Text = ""

        .EvenPage.CenterHeader.Text = ""

        .EvenPage.RightHeader.Text = ""

        .EvenPage.LeftFooter.Text = ""

        .EvenPage.CenterFooter.Text = ""

        .EvenPage.RightFooter.Text = ""

        .FirstPage.LeftHeader.Text = ""

        .FirstPage.CenterHeader.Text = ""

        .FirstPage.RightHeader.Text = ""

        .FirstPage.LeftFooter.Text = ""

        .FirstPage.CenterFooter.Text = ""

        .FirstPage.RightFooter.Text = ""

    End With

    Application.PrintCommunication = True

    ActiveSheet.PageSetup.PrintArea = "$B$1:$U$82"

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .PrintTitleRows = ""

        .PrintTitleColumns = ""

    End With

    Application.PrintCommunication = True

    ActiveSheet.PageSetup.PrintArea = "$B$1:$U$82"

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.236220472440945)

        .RightMargin = Application.InchesToPoints(0.236220472440945)

        .TopMargin = Application.InchesToPoints(0.748031496062992)

        .BottomMargin = Application.InchesToPoints(0.748031496062992)

        .HeaderMargin = Application.InchesToPoints(0.31496062992126)

        .FooterMargin = Application.InchesToPoints(0.31496062992126)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintSheetEnd

        .CenterHorizontally = True

        .CenterVertically = True

        .Orientation = xlPortrait

        .Draft = False

        .PaperSize = xlPaperA4

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = 1

        .PrintErrors = xlPrintErrorsDisplayed

        .OddAndEvenPagesHeaderFooter = False

        .DifferentFirstPageHeaderFooter = False

        .ScaleWithDocHeaderFooter = True

        .AlignMarginsHeaderFooter = True

        .EvenPage.LeftHeader.Text = ""

        .EvenPage.CenterHeader.Text = ""

        .EvenPage.RightHeader.Text = ""

        .EvenPage.LeftFooter.Text = ""

        .EvenPage.CenterFooter.Text = ""

        .EvenPage.RightFooter.Text = ""

        .FirstPage.LeftHeader.Text = ""

        .FirstPage.CenterHeader.Text = ""

        .FirstPage.RightHeader.Text = ""

        .FirstPage.LeftFooter.Text = ""

        .FirstPage.CenterFooter.Text = ""

        .FirstPage.RightFooter.Text = ""

    End With

    Application.PrintCommunication = True

End Sub

Highlighted

HI Mark,

 

I would guess you have two options.

 

1. export the range without formatting (as the formatting happens to the worksheet not the pdf) see this link for an example vba-script-that-saves-excel-range-as-pdf

or 

2. copy the data (range) to a prepared,formatted sheet or, new sheet and script the formatting. Then export the whole sheet using the previous examples in this thread.

Highlighted
Worked great..saves me at least 2hrs a week!
Highlighted

@Andrew Jones 

code as you share not works in window 7/10 64 bit .  my cvode be below

 

Declare Function RegOpenKeyA Lib "advapi32.dll" ( _
ByVal Key As Long, _
ByVal SubKey As String, _
NewKey As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
lpData As Any, _
ByVal cbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" ( _
ByVal hKey As Long) As Long

Sub PrintPDF()
Dim sPath As String
Dim strDefaultPrinter As String
Dim strOutFile As String
Dim lngRegResult As Long
Dim lngResult As Long
Dim dhcHKeyCurrentUser As Long
Dim PDFPath As String
Const dhcRegSz As Long = 1

dhcHKeyCurrentUser = &H80000001
strDefaultPrinter = Application.ActivePrinter

sPath = "D:\JOBCARD201920"
PDFPath = sPath

strOutFile = PDFPath & "\" & Range("G3").VALUE & ".pdf"


lngRegResult = RegOpenKeyA(dhcHKeyCurrentUser, "Software\Adobe\Acrobat Distiller\PrinterJobControl", _
lngResult)
lngRegResult = RegSetValueEx(lngResult, Application.Path & "\Excel.exe", 0&, dhcRegSz, ByVal strOutFile, Len(strOutFile))
lngRegResult = RegCloseKey(lngResult)

ThisWorkbook.ActiveSheet.PrintOut copies:=1, ActivePrinter:="Adobe PDF"
Application.ActivePrinter = strDefaultPrinter

end sub