How to Extract Name Ranges To Excel Sheet

[Istiyak]

Hi,,,..


i m having atleast 40-50 name ranges in my workbook.


it is very long process to copy and paste name ranges in sheet for reference.


Can i know is these possible to Extract Name Ranges To Excel Sheet.??


Regards

!$T!

 

[vijaySharma]

Here you go....

[pre]

Sub ExtractNames()
Dim cntr As Long

Sheets("Sheet2").Select
Cells.ClearContents
Range("A1").Select
cntr = 1
ActiveCell.Offset(0, 0) = "Name as defined"
ActiveCell.Offset(0, 1) = "Contnets of the defined name"

Do While cntr <= ActiveWorkbook.Names.Count
ActiveCell.Offset(cntr, 0) = ActiveWorkbook.Names(cntr).Name
ActiveCell.Offset(cntr, 1) = "'" & ActiveWorkbook.Names(cntr).RefersTo
cntr = cntr + 1
Loop
Columns.AutoFit
End Sub

[/pre]

HTH

~VijaySharma

 

[Istiyak]

hi Vijay ,,


Its Working Dear


Cheers to u dear...


Thanks.

!$T!

 

[Hui]

Istiyak


You can also go to the Formulas Tab

Use in Formula

Paste Names

Paste List


That will create a list of all Named Formulas with there corresponding formulas in a Range with the current cell at the Upper Left corner