Macro: How to get this macro to save to a specific location

[LOUF]

Hi all! The macro below does a great job of saving a PDF (and overriding changes) to the same original location where the Word document lives, but how can I tell it to save to a specific location on my network?

The purpose of this would be to distribute the Word doc to colleagues in various departments and have them all save a PDF version of the working doc in a specific folder, each overriding a previous PDF:

Sub Silent_save_to_PDF()


'
' Silent Save_to_PDF Macro
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
Replace(ActiveDocument.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

Many thanks!

[macropod]

Change:
Replace(ActiveDocument.FullName, ".docx", ".pdf")
to:
"Some Path\" & Replace(ActiveDocument.Name, ".docx", ".pdf")
where 'Some Path' is the designated path.