hi,

check this way too:
Sub notUsedNames()
Dim NM As Name
    For Each NM In ThisWorkbook.Names
        Set result = Sheets("UnusedNames").UsedRange.Find(NM.NameLocal, LookIn:=xlFormulas)
        If result Is Nothing Then tmp = tmp & "," & NM.NameLocal
    Next NM
    
    MsgBox "Not used names are: " & Mid(tmp, 2)
End Sub