Bạn thử thay
SheetName = Mid(SheetList.List(SheetList.ListIndex), (InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1))
bằng
SheetName = VBA.Mid(SheetList.List(SheetList.ListIndex), (InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1))
1544248052
Chọn Tools -> References -> nhìn...