Refreshing Lined Cells And Breaking Links

I would like to refresh all external links to other xl files (on a network drive) and break all links

I have a code like this:

Code:
For Each l In ActiveWorkbook.LinkSources
Workbooks.Open Filename:=l, updatelinks:=1, ReadOnly:=True
ActiveWorkbook.Close False
Next l

For Each l In ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink l, xlLinkTypeExcelLinks
Next l

It seems to be working, but if i go step by step (f8) it updates values but sometimes after closing the source workbook and updating next one, the previously updated values disappear...

I cannot open all files because there are many of them and they are like 40mb each.

There are no defined names in the file, except print_area