旺叔的部落格

Sub Del()
    Dim i As Name
    For Each i In ThisWorkbook.Names
     i.Delete
      Next i
     End Sub