Code chạy ok rồi cảm ơn CHú nhiều. Trường hợp cháu chỉ lấy mỗi 1 file notepad tại đưởng dẩn đã cài đặt sẳng Sheets("data").Range("M2") thì sữa lại đoạn này
FilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
Như thế nào để nó hiểu nó lấy từ Sheets("data").Range("M2")