VBA脚本中的excel命名范围

Question

I am using

Worksheets("Named_ranges").Range("A1").ListNames

to write the list of named ranges in the Named_ranges sheet but the result is like

is_pp4 = Checklist!$D$28 

so to show the contents of =Checklist!$D$28 , I need to press F2 and then Enter. I have tried to search and replace the = with = as suggested on other answers and it works when executed from Excel interface but it has to be done automatically with VBA script and from there the search and replace method does not solve the problem. The Calculations options are set to Automatic.

Answer 1

This should do what you describe:

With Worksheets("Named_ranges").Range("A1")
    .ListNames
    .CurrentRegion.Numberformat = "General"
    .CurrentRegion.Replace "=", "=", xlPart
End With

Edit: I think there may be a timing issue with ListNames so it may be better to loop:

Dim n As Long
Dim arrData()
With ActiveWorkbook.Names
ReDim arrData(1 To .Count, 1 To 2)
For n = 1 To .Count
    arrData(n, 1) = .Item(n).Name
    arrData(n, 2) = .Item(n).RefersTo
Next n
End With
Worksheets("Named_ranges").Range("A1").Resize(UBound(arrData, 1), 2).Value = arrData