'' Поиск, удаление имен в файле
Sub delNames()
Dim nms
  With ThisWorkbook
    For Each nms In .Names
        Debug.Print nms; Space(3); nms.Name
        nms.Delete
    Next
  End With
End Sub

'' Очистка страниц книги
Sub ClearSheets()
Dim sht
  With ThisWorkbook
    For Each sht In .Sheets
     Debug.Print sht.Name
     sht.Cells.ClearComments
     sht.Cells.ClearFormats
     sht.Cells.ClearHyperlinks
     sht.Cells.ClearNotes
     sht.Cells.ClearOutline
    Next
  End With
End Sub