Help! Hàm tách họ và tên

[walking]

Chào các Bác!
Giúp em tý nào!
Trước em vẫn dùng code này:
Private Function Tachten(ten As String, lg As Integer)
Dim j As Integer
Name = Trim(ten)
For j = Len(Name) To 1 Step -1
If Mid(Name, j, 1) = " " Then
If lg = "1" Then
Tachten = Right(Name, Len(Name) - j)
Else
Tachten = Left(Name, j)
End If
Exit For
End If
Next
End Function

để tách họ và tên thế mà giờ nó không chạy nữa, các bác giúp em với! em chạy office 2010 update liên tục, đã chỉnh cho phép macro chạy, kể cả ghi file *.xlsm cũng không được!!
Nhân tiện em hỏi luôn: có hàm copy từ file excel khác thì chạy, có hàm báo lỗi (đã sửa lại đúng địa chỉ ô)! khó hiểu quá!!
Thanks các bác trước!

 

[tintam7251]

-Bạn thử thêm dòng khai báo này:
Dim Name As String
-Những hàm nào bị báo lỗi bạn nên gởi file đó lên, chứ nói thế thì không ai có thể biết mà giúp bạn được.