Hei,
evtl. hilft das weiter:
Dim KW As Integer For KW = 1 To 52 Workbooks.Open "AuswXXXX_KW2017-" & Format(KW, "00") & "_Team_Witt.xlsx" Next KW Dein kode schaut sehr kaotisch aus.