Geöffnete csv-Dateien ermitteln

Dim wb As Workbook
Dim openworkbooks() As Workbook
counter = 0
For Each wb In Application.Workbooks
    If LCase(Right(wb.Name, 3)) = "csv" Then  
        counter = counter + 1
        ReDim Preserve openworkbooks(counter)
        Set openworkbooks(counter) = wb
    End If
Next

MsgBox "Anzahl der geöffneten CSV-Dateien: " & UBound(openworkbooks)  

For i = 1 To UBound(openworkbooks)
    MsgBox openworkbooks(i).Name
Next