I have been asked to share a workbook that I made. I want to share it, but there are several references to file paths in the code that are specific to me. I'd like to make a tab named "File Paths" where any user could input their specific file paths and the macros would reference the cells for the file paths instead of the file paths being buried in the code.

I've tried with no success, I appreciate any help you can provide.

The attached code has 3 file path references that I'm try to work with. They are the 3 lines that start with Z:\

I probably attached too much of the code, the references are towards the bottom.

Sub EmailMXG()

Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

' Build the email.
'enter email addresses here separated by a semicolon and a space
Sheets("Dashboard").Select
emailItem.to = Range("G3").Value
emailItem.CC = Range("F3").Value
emailItem.BCC = Range("J4").Value

emailItem.Subject = Range("I4").Value

emailItem.Body = Replace(Range("I10").Value & "" & Range("I11").Value & "#" & Range("I12").Value, "#", vbLf & vbLf)
'Attach current workbook
'emailItem.Attachments.Add ActiveWorkbook.FullName
'Attach PDF
'WHERE THE PDF IS LOCATED
emailItem.Attachments.Add ("Z:\QAP\LateList\MXG\MXG " & Format(Date, "DD MMM YY") & ".pdf") 

' Send the Email
' Use this OR .Display, but not both together.
'emailItem.Send

' Display the Email so the user can change it as desired before sending it.
' Use this OR .Send, but not both together.
emailItem.Display

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub

Sub MakePDFMXG()
'WHERE TO SAVE THE PDF
ChDir "Z:\QAP\LateList"
'WHAT TO NAME THE PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\QAP\LateList\MXG\MXG " & Format(Date, "DD MMM YY") & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub