Sub ClearAllNamedRanges()
Dim x
   Application.ScreenUpdating = False
   On Error Resume Next
   For Each x In ThisWorkbook.Names
      Application.Evaluate(x.RefersTo).ClearContents
   Next
   MsgBox "All named ranges cleared."
End Sub