Ranges of Named Fields

Hi to all !

In Excel 97, I try to get the range of the existing fields : by example

FieldName range
namedProf Param2!$A$1:$A$50

I use the following code :
Dim intPtr1 As Integer
'
Sheets("Content").Select
Range("G2").Activate
ActiveCell = "NamedFields"
For intPtr1 = 1 To Application.ActiveWorkbook.Names.Count
ActiveCell.Offset(intPtr1, 1) =
Application.ActiveWorkbook.Names(intPtr1).Name
ActiveCell.Offset(intPtr1, 2) = Names(intPtr1).RefersTo
Next intPtr1

but the results are not OK

Can anyone help ??

Thanks by advance and regards from Belgium.

if you trying to write a list of names and there refers to

Dim intPtr1 As Integer
'
Sheets("Content").Select
Range("G2").Activate
ActiveCell = "NamedFields"
For intPtr1 = 1 To Application.ActiveWorkbook.Names.Count
ActiveCell.Offset(intPtr1, 1) =
Application.ActiveWorkbook.Names(intPtr1).Name
ActiveCell.Offset(intPtr1, 2) = "'" & Names(intPtr1).RefersTo
Next intPtr1
Next

or you could try

Sheets("Content").Select
Range("G2").Activate
Selection.ListNames

--
Regards,
Tom Ogilvy


"affordsol" <affordsol@discussions.microsoft.com> wrote in message
news:BBADBE41-4151-4A5A-92DC-F73C5C2C8368@microsoft.com...
> Hi to all !
>
> In Excel 97, I try to get the range of the existing fields : by example
>
> FieldName range
> namedProf Param2!$A$1:$A$50
>
> I use the following code :
> Dim intPtr1 As Integer
> '
> Sheets("Content").Select
> Range("G2").Activate
> ActiveCell = "NamedFields"
> For intPtr1 = 1 To Application.ActiveWorkbook.Names.Count
> ActiveCell.Offset(intPtr1, 1) =
> Application.ActiveWorkbook.Names(intPtr1).Name
> ActiveCell.Offset(intPtr1, 2) = Names(intPtr1).RefersTo
> Next intPtr1
>
> but the results are not OK
>
> Can anyone help ??
>
> Thanks by advance and regards from Belgium.
>
>