Спасибо,..еще необходимо перед этим обновить данные в книге...
а если книг больше 80ти?)

а макрос есть?

интересно, а как Вы собираетесь обновить данные в книге, не открывая её?

Вот я их и открываю 89 раз)...мне нужно из 1 книги со внешними связями сделать 89 копий с разными названиями (названия книг влияют на их содержимое после обновления).

В итоге решил задачу)

Sub Get_All_File_from_Folder()
   Dim sFolder As String, sFiles As String
   Dim wb As Workbook
   Dim links As Variant
   Dim i As Integer
   
   ' Укажите путь к папке
   sFolder = "путь"
   
   ' Отключаем обновление экрана, чтобы наши действия не мелькали
   Application.ScreenUpdating = False
   sFiles = Dir(sFolder & "*.xlsx")
   Do While sFiles <> ""
       ' Открываем книгу
       Set wb = Application.Workbooks.Open(sFolder & sFiles)
       ' Действия с файлом
       ' Записываем в ячейку A1 первого листа книги точку (".")
       wb.Sheets(1).Range("A1").Value = "."
       ' Разрываем все внешние связи
       links = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
       If Not IsEmpty(links) Then
           For i = LBound(links) To UBound(links)
               wb.BreakLink Name:=links(i), Type:=xlLinkTypeExcelLinks
           Next i
       End If
       ' Закрываем книгу с сохранением изменений
       wb.Close SaveChanges:=True ' Если поставить False, книга будет закрыта без сохранения
       sFiles = Dir
   Loop
   ' Возвращаем ранее отключенное обновление экрана
   Application.ScreenUpdating = True
End Sub