I’m sorry for that.
I’s probably spam attacks on my website, struggling with that all the time =(

Hello Tomasz,
Thank you for providing the code. I encountered the same issue, and your solution works perfectly for me.
Regarding “WorkbookRedaktionelle Leitlinien,” I also found a reference to “modafinil-schweiz.site/” which appears to be unintended in the code. I’m reaching out to inform you that something might have altered the code on the page.

There is no such variable like “WorkbookRedaktionelle Leitlinien” 🙂

In general this is the same solution 🙂

Dim wb As Workbook, wbExport As WorkbookRedaktionelle Leitlinien
For Each wb In Application.Workbooks
If InStr(1, wb.Name, “export”) > 0 Then
Set wbExport = wb
End If
Next wb

I am coding in english and getting an error at “WorkbookRedaktionelle Leitlinien”. What is this meant to be???

Dim myCount As Long

myCount = Workbooks.Count
Do
DoEvents
Application.Wait now + TimeSerial(0, 0, 2)
DoEvents
If Workbooks.Count > myCount Then Exit Do
Loop