Sub CreateNamedRangesExtWbk ()
'Создайте названный Ряд в внешнем Workbook
Затемните wb как Workbook
Затемните filePath как шнур
Затемните currentWbk как шнур
filePath = «C:\»
Application.ScreenUpdating = ложно
currentWbk = ActiveWorkbook.Name
Для I = от 1 до 52
Установите wb = Workbooks.Open (filePath & «неделя ACA» & I)
Workbooks (currentWbk). Имя Names.Add: = " замыкает " & I, RefersTo: =wb. Рабочий лист («TailAvailability»). Ряд («6: $R$204»)
wb. Близкое ложное
Установите wb = ничего
Затем
Application.ScreenUpdating = True
Было установлено MsgBox «названный Ряд!»
Подводная лодка конца
|