khi chạy Vba xuất hiên lỗi "run time error 438"

nguyen tan dat

Yêu THVBA
em được ông anh cho 1 file ex..khi chạy xuất hiện lỗi " run time error 438", nhớ mấy anh chị giúp em kiểm tra lỗi và sửa dùm em với.
[
CODE]'Chon sheet TCVN de tao danh muc cong viec:

Sheets("TCVN").Select

'Loc bo gia tri trung de dua vao DanhMuc:

Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000").Select

Selection.ClearContents

Range("AC" & Range("TCVN_Start").Value + 3 & ":AC" & Range("TCVN_Stop").Value - 1).Select

Selection.Copy

Range("AC" & Range("TCVN_Stop").Value + 3).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000").RemoveDuplicates Columns:=1

'Sap xep danh muc cong viec theo A, B, C:

ActiveWorkbook.Worksheets("TCVN").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("TCVN").Sort.SortFields.Add2 Key:=Range("AC" & Range("TCVN_Stop").Value + 3), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("TCVN").Sort

.SetRange Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000")

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

][/ICODE]
 
Top