To get range names into row 1, try:

Sub NameLister()
Dim n As Name
i = 0
For Each n In ThisWorkbook.Names
Range("A1").Offset(0, i).Value = n.Name
i = i + 1
Next
End Sub

--
Gary''s Student - gsnu200901


"Andrew P." wrote:

Hi All

Im trying to make the example 1 work from Copy3, but Im having trouble
referring to multiple named ranges - most I can get to work is one named
range (always only 1 [merged] cell). Whats the correct method?
- Set sourceRange = .Range("")

Also, is there a way to get the names of the ranges into row 1?

Thanks a heap
Andrew