I have a workbook in which there are some tables defined as named ranges. These names are Table1, Table2..... TableN (N being variable). I have written following code:
First, Pls don't start new thread for same query! I have deleted another one.
here's two loop for your info..
Code:
Dim n As Name
With ActiveWorkbook
For Each n In .Names
If n.Name Like "Table*" Then n.Delete
Next
End With
Dim i As Integer
With ActiveWorkbook
On Error Resume Next
For i = 1 To .Names.Count
.Names("Table" & i).Delete
Next
On Error GoTo 0
End With