Delete all named ranges with scopes different than Workbook

Something like below.

Sub Demo()
Dim nm As Name
For Each nm In ThisWorkbook.Names
    If TypeName(nm.Parent) <> "Workbook" Then
        nm.Delete
    End If
Next
End Sub