Использование скопированных именованных диапазонов в формулах в новой книге

Question

Я копирую два листа из одной книги в новую с помощью VBA. Я могу скопировать все, включая именованные диапазоны, в новую книгу, но формулы, использующие диапазоны, не распознают их, если я вручную go не в диспетчере имен, дважды щелкните именованный диапазон и выберите ОК .

Есть ли способ автоматизировать это?

Вот код для справки:

Dim x As Name
Dim NewBook As Workbook

Set NewBook = Workbooks.Add

ShSum.Copy before:=NewBook.Sheets(1)

For Each x In ThisWorkbook.Names
  On Error Resume Next
  ' "x.value" refers to the cell references the defined name points to.
  If Left(x.Value, 14) = "='ACFT Scores'" Then
    NewBook.Names.Add Name:=x.Name, RefersTo:=x.Value
  End If
Next x

В других листах есть несколько диапазонов, которые мне не нужно копировать , следовательно, оператор IF.