Sub Macro2()
'
' Macro2 Macro
'

'
    ChDir "X:XXXXXXXXXXXXXXXXXXXXWeek 3"
    ActiveWorkbook.ChangeLink Name:= _
        "X:XXXXXXXXXXXXXXXXXXXXWeek 2XXXXX Week 1.xlsx" _
        , NewName:= _
        "M:XXXXXXXXXXXXXXXXXXXXWeek 3XXXXX Week 2.xlsx" _
        , Type:=xlExcelLinks
End Sub