Exporting to PDF

Hello all,

Thank you for any assistance.

I am using the below code to export a sheet to PDF. The problem lies in that it does not work when sent to others, I believe this is due to the file path of "C:\.........".

What I would like to do is when the button is clicked prompt the individual asking where to save the file, or automatically save it to the desktop, no matter who I send it to. Thank you for any help.

Sub Export_PDF()
'
' Export_PDF Macro
' Allow user to export to PDF for prospect
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\**\CRUS ROI - Estimate.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub