How do I list names alphabetically?

[Guest]

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

Thanks

 

[Norman Jones]

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

 

[Norman Jones]

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