Delete large amount of named ranges in excel workbook

Hi, Antonio Nunez1

Thank you for using Microsoft products and posting them to the community.

You can try this VBA code (I have tested it and it works fine): (But IMHO, your number is too large, and you may experience lag or crash when using this code)

Sub DeleteAllNames() 

    Dim n As Name 

    On Error Resume Next 

    For Each n In ActiveWorkbook.Names 

        n.Delete 

    Next n 

    On Error GoTo 0 

    MsgBox "All named ranges have been deleted." 

End Sub

I hope the above information can help you. Feel free to send a message if you need further help.

Best wishes

Aiden.C - MSFT |Microsoft Community Support Specialist

Hi,

try this

Sub Delete_LARGE_Define_Names()

'## 08-11-2024 ##

Dim wb

Set wb = ThisWorkbook

Dim df As Name

Dim N As Long, Limit As Long, m As Long

Limit = 10000 '<< delete 10000 entries

N = wb.Names.Count

MsgBox "total df names=" & N

If N = 0 Then Exit Sub

Select Case N

Case N <= Limit

For Each df In wb.Names

df.Delete

Next df

Case Else

m = 0

For Each df In wb.Names

m = m + 1

df.Delete

If m > Limit Then

MsgBox "del. df names = " & Limit & vbLf & "current df names =" & N - Limit

Exit Sub

End If

Next df

End Select

End Sub

is there a version of this that only deletes the first 10,000 names or so? I run out of memory when I try to delete all the names at once.

Thanks