Hi,

I have created a file that outputs a letter for a client.
I then created a Macro that moves and copies the worksheet to a new Excel file and saves to my desktop and names the worksheet "Customer Copy" in excel.
I also save this copied file as a PDF file same name "Customer copy".

The macro works fine on my PC, the trouble I have is when I send this file to others users they get an error message when they try to run the Macro on their PC.
I know the reason is that my Macro is linked to my user name (Hardeep.Sidhu)

Below is my Macro:

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("Output Summary").Select
Sheets("Output Summary").Copy
ChDir "C:\Users\hardeep.sidhu\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\hardeep.sidhu\Desktop\Customercopy.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\hardeep.sidhu\Desktop\Customercopy.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.Close
End Sub



The error users get in that macro is the line below:

ChDir "C:\Users\hardeep.sidhu\Desktop"

This links to my desktop, How can I change it so that it automatically go to the relevant users desktop?

Please can anyone correct my Macro above, I am a novice at this stuff and have struggled for the last 7 hours.

Thanks

Hardeep