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

Thanks

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

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