Giúp Sửa Lỗi Function Lấy Tên Của Sheet

[Zorrofantasy]

Chào mọi người trong box VBA,
Mình có 1 function này , nhưng khi test thì bị lỗi , nhờ mọi người xem giúp mình thử bị gì mà cứ bị lỗi này ( theo hình đính kèm )

Cám ơn đã xem tin,

Function GetNameValue(NameTitle As String) As String

    Dim UnCleanValue As Variant, TargetName As Variant
    Dim CleanValue As Variant
    Dim Wksht As Worksheet
  
    Set Wksht = ActiveSheet
  
    On Error Resume Next
    TargetName = Wksht.Names(NameTitle)  'lỗi dòng này khi debug
    If Err.Number > 0 Then Exit Function

    CleanValue = Replace(TargetName, Chr(34), "")
    CleanValue = Replace(CleanValue, "=", "")
    GetNameValue = CleanValue
  
End Function

 

[snow25]

Chào mọi người trong box VBA,
Mình có 1 function này , nhưng khi test thì bị lỗi , nhờ mọi người xem giúp mình thử bị gì mà cứ bị lỗi này ( theo hình đính kèm )

Cám ơn đã xem tin,

Function GetNameValue(NameTitle As String) As String

    Dim UnCleanValue As Variant, TargetName As Variant
    Dim CleanValue As Variant
    Dim Wksht As Worksheet
 
    Set Wksht = ActiveSheet
 
    On Error Resume Next
    TargetName = Wksht.Names(NameTitle)  'lỗi dòng này khi debug
    If Err.Number > 0 Then Exit Function

    CleanValue = Replace(TargetName, Chr(34), "")
    CleanValue = Replace(CleanValue, "=", "")
    GetNameValue = CleanValue
 
End Function

Không hiểu bạn muốn làm gì.Bạn thay thành dòng này xem.

 TargetName = Wksht.Name