loop through names and delete those not matching specified pattern

Question

I have a Excel workbook in which I import sheets from several other workbooks and then merge the data from these into an \"overview\" sheet. I am fairly new to vba so this t

Answer 1

You need to use the namelocal property of the name object.

Try this:

Sub DeleteNames()

Dim myName As Name

 For Each myName In ThisWorkbook.Names

  If myName.NameLocal <> "Tower" And myName.NameLocal <> "Bird" Then
    myName.Delete
  End If

 Next
End Sub