Chris,

Go to the Insert menu, choose Name, then Paste, then Paste List. If you want
to do this with VBA, use


Dim N As Long
With ThisWorkbook.Names
For N = 1 To .Count
Cells(N, 1).Value = .Item(N).Name
Next N
End With

or

Range("A1").ListNames

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Chris Gorham" wrote in message
...
Could someone tell me the code for extracting all the
range names in a work book in alpabetical order..??

Any help much appreciated.

Rgds

Chris