Okręt podwodny CreateNamedRangesExtWbk ()
'Tworzyć Zwany Pasmo w Zewnętrznie Workbook
Ćmić wb Jako Workbook
Ćmić filePath Sznurek
Ćmić currentWbk Sznurek
filePath = "C:\"
Application.ScreenUpdating = Fałszywy
currentWbk = ActiveWorkbook.Name
Dla i = (1) 52
Set wb = Workbooks.Open (filePath & "ACA Tydzień" & i)
Workbooks (currentWbk). Names.Add Imię: = " Ogon " & i, RefersTo: =wb. Worksheets ("TailAvailability"). Pasmo ("6: $R$204")
wb. Zamknięty Fałszywy
Set wb = Nic
Następnie
Application.ScreenUpdating = Prawdziwy
MsgBox "Wymieniać Pasmo ustawiać!"
Końcówka Okręt podwodny
|