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.