How do I list names alphabetically?
 

How do I create a list of names and have the sheet alphabetize it
automatically?

Thanks

How do I list names alphabetically?
 

Hi Jay,

Try:

Sub ListAllNames()
Dim i As Long
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Names List").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets.Add.Name = "Names List"
For i = 1 To ActiveWorkbook.Names.Count
Cells(i, 1).Value = ActiveWorkbook.Names(i).Name
Cells(i, 2).Value = ActiveWorkbook.Names(i)
Next
Columns("A:B").AutoFit
End Sub


---
Regards,
Norman



"Jay" wrote in message
...
How do I create a list of names and have the sheet alphabetize it
automatically?

Thanks

How do I list names alphabetically?
 

Hi Jay,

You might also want to download Jan Karel Pieterse's Name Manager addin
which will not only handles your list requirement, but almost anything else
that you might wish to do with Excel names:

http://www.jkp-ads.com/Download.htm

---
Regards,
Norman



"Jay" wrote in message
...
How do I create a list of names and have the sheet alphabetize it
automatically?

Thanks