Alle Namen aus ActiveWorkbook löschen

Sub DeleteNamesFromWorkbook()
Dim Nms As Object
Dim oLstNms As ListObjects
Set Nms = ActiveWorkbook.Names
Set oLstNms = Nms.ListObjects.Add
oLstNms.Delete
End Sub

Das funzt nicht ... Danke!