Code đổi đường dẫn và tên file khi save as

[TKT]

Private Sub Worksheet_Activate()
Cells.Select
    Selection.ClearContents
    Range("D10").Select
    Selection.Consolidate Sources:=Array( _
        [COLOR=Red]"'C:\Documents and Settings\Welcome\Desktop\[COLOR=Black][code.xls]Sheet1'!R5C2:R100C3", _[/COLOR]
        "'C:\Documents and Settings\Welcome\Desktop\[COLOR=Black][code.xls]Sheet2'!R15C5:R200C6"),[/COLOR][/COLOR] _
        Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
    Range("D10").Select
End Sub

Khi Trí lưu save as thì dòng chữ đỏ không thay đổi. Quý Anh/Chị giúp Trí sữa lại đoạn Code trên. Xin cảm ơn.

 

[TKT]

Đường dẫn ở đoạn Code không thay đổi được rồi, chắc em không xài Consolidate nữa, thôi em chuyển sang sử dụng Pivot Table vậy.