Excel 2016 VBA - hent data fra mange Excel-filer - crasher i Excel 2016

Hej

Jeg har i flere år haft en VBA kode der åbner omkring 50 Excel-filer og henter noget data som skrives i et samleark.

Jeg har før oplevet at Excel crasher midt I koden, men har kunnet løse det ved at sætte nogen msg-box'e på for hver 5. eller 10. fil - og så har det kørt nogenlunde.

Jeg oplever nu efter at vi er gået over til Excel 2016 at det crasher oftere end før. - er der nogen der har nogen gode tricks og ideer til, hvordan min kode bliver sundere og mere stabil??

Uddrag fra koden:

stSti = STI
stFile = Dir(stSti + "\*.xls")
Do While stFile <> ""
    arr(a) = stFile
    a = a + 1
    stFile = Dir$
Loop

ReDim Preserve arr(a)
QuickSort arr(), LBound(arr), UBound(arr)


'indsæt loop gennem filer

For b = 0 To a
    stFile = arr(b)
   
    'Tjek om filnavn indeholder "Projekttavle_8"
    If InStr(1, stFile, "Projekttavle_8") > 0 Then

        Set stWB = Workbooks.Open(Filename:=(stSti & "\" & stFile), ReadOnly:=True, UpdateLinks:=False)
        MsgBox "Åbner " & stFile
.....osv