Sub ListNames()
Dim i As Integer
Dim s() As String
i = ActiveWorkbook.Names.Count
ReDim s(i)
For i = 1 To i
s(i) = ActiveWorkbook.Names(i).Name & ActiveWorkbook.Names(i)
'For printing to the Immediate window
Debug.Print s(i) 'Prints something like this: MyRange=Sheet1!$A$1:$E$2
'Write names to the worksheet
Range("A" & i).FormulaR1C1 = ActiveWorkbook.Names(i).Name &
ActiveWorkbook.Names(i)
Next i
End Sub

"Dave Peterson" wrote:

You may want to get Jan Karel Pieterse's (with Charles Williams and Matthew
Henson) Name Manager:

You can find it at:
NameManager.Zip from http://www.oaltd.co.uk/mvp

It'll make working with names much, much easier.


Ctech wrote:

Hi, I have a spreadsheet with named ranges that I would like to export
to another worksheet.

Is there a way to do this, if not how can i print out all the named
ranges so I easily can write them in manually on the other wb.

--
Ctech

------------------------------------------------------------------------
Ctech's Profile: http://www.excelforum.com/member.php...o&userid=27745
View this thread: http://www.excelforum.com/showthread...hreadid=542050

--

Dave Peterson