первенствует именованные диапазоны VBA скрипт

Question

Я использую

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

написать список именованных диапазонов в Named_ranges листе, но результат, как

is_pp4 = Checklist!$D$28 

так, чтобы показать содержимое =Checklist!$D$28, Мне нужно нажать F2, а затем Enter. Я попытался выполнить поиск и заменить значение = с =, как это было предложено в других ответах, и оно работает при выполнении из интерфейса Excel, но оно должно выполняться автоматически с помощью сценария VBA, и оттуда метод поиска и замены не решает проблему. Для параметров «Расчеты» установлено значение «Автоматически».

Answer 1

Это должно делать то, что вы описали:

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

Edit: Я думаю, что может быть проблема синхронизации с ListNames так что может быть лучше в цикле:

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