misread the post

--


Gary Keramidas
Excel 2003


"Gary Keramidas" wrote in message
...
i use this

Sub name_ranges() ' dumps all named ranges
Dim nm As Name
For Each nm In ThisWorkbook.Names
Debug.Print nm.Name
Next
End Sub

--


Gary Keramidas
Excel 2003


"vsoler" wrote in message
...
Hi,

I want to list, in the inmediate windows, the values of the named
ranges in my workbook. I prefer, if possible, not having to specify
the worksheet names.

I've tried the following code:

Sub abc()
Dim a
For Each n In Names
Debug.Print n, n.Name
a = n.Value
Debug.Print a
Next
End Sub

I get:

=sdf!$D$6:$D$8 casa
=sdf!$D$6:$D$8
=sdf!$C$12:$D$14 mesa
=sdf!$C$12:$D$14

however I would like something like

=sdf!$D$6:$D$8 casa
1
2
3
=sdf!$C$12:$D$14 mesa
7
8
9

is this possible?

Thank you