Copia de archivo donde no se dañen las macros

Buenas tardes, tengo la siguiente macro que su función es cargar archivos tipo texto convirtiéndolos en datos para Excel (ambos archivos están en la misma carpeta), pero cuando copio la carpeta para otra ubicación (fuera del equipo original) las macros siguen respondiendo al archivo original. Existe alguna forma para que la trasladar la carpeta las macros busquen en la nueva ubicación?

Sub Cargar_501_1()
Application.ScreenUpdating = False
    Sheets("1_501").Select 
    ActiveSheet.Unprotect
    Range("A4").Select 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\XXXXXX\Desktop\XXXX\Enero\501.asc", _
        Destination:=Range("$A$4"))
        .Name = "501_1" 
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
        Range("A5").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
    Sheets("Meses").Select
Application.ScreenUpdating = True
End Sub