CreateNamedRangesExtWbk secundário ()
'Criar Escala nomeada no manual de instruções externo
Escurecer a WB como o manual de instruções
Escurecer o filePath como a corda
Escurecer o currentWbk como a corda
filePath = “C:\”
Application.ScreenUpdating = falso
currentWbk = ActiveWorkbook.Name
Para i = 1 a 52
Ajustar WB = Workbooks.Open (filePath & do “semana ACA” & i)
Manuais de instruções (currentWbk). Nome de Names.Add: = " ata " & i, RefersTo: =wb. Folhas (“TailAvailability”). Escala (“6: $R$204”)
WB. Falso próximo
Ajustar WB = nada
Em seguida
Application.ScreenUpdating = retificam
MsgBox “Escala nomeada foi ajustado!”
Submarino da extremidade
|