Em chạy code để gộp dữ liệu nhưng khi dùng Sheet code name thì lỗi ko chạy

Em chạy code để gộp dữ liệu, nhưng khi dùng Sheet code name thì lỗi ko chạy được, nhưng nếu đổi sang Sheet Name thì chạy được . Nhờ Thầy/cô hỗ trợ giúp nếu muốn viết theo Sheet codename. Chi tiết đoạn code bên dưới

Sub Tong_Hop_Giu_Lieu2()
'Mo thu muc, chon file,gop vao 1 file
   With Application.FileDialog(msoFileDialogFilePicker)
       .AllowMultiSelect = True
       .Show 'Hien cua so chon file
 
'Xac dinh file nào duoc chon
   Dim i As Long
       For i = 1 To .SelectedItems.Count

'Gan bien cho cac WB
   Dim WB_KQ As Workbook
   Dim WB_Select As Workbook
       Set WB_KQ = ThisWorkbook
       Set WB_Select = Workbooks.Open(.SelectedItems(i))

'Tim du lieu tu các WB Data
   Dim DongCuoi_Select As Long
       DongCuoi_Select = WB_Select.Sheet1.Range("F" & Rows.Count).End(xlUp).Row
   Dim DongDau_Select As Long
       DongDau_Select = 8
   Dim KhoangCach_Select As Long
       KhoangCach_Select = DongCuoi_Select - DongDau_Select + 1

'Tim Dong cuoi noi nhan
   Dim DongCuoi_KQ As Long
       DongCuoi_KQ = WB_KQ.Sheet6.Range("F" & Rows.Count).End(xlUp).Row

'Gan Du Lieu
   WB_KQ.Sheet6.Range("A" & DongCuoi_KQ + 1 & ":BM" & DongCuoi_KQ + KhoangCach_Select).Value = _
   WB_Select.Sheet1.Range("A" & DongDau_Select & ":BM" & DongCuoi_Select).Value
'Dong WB lai
   WB_Select.Close savechanges:=False
       Next i
       
   End With
End Sub