in Workbooks einen Worksheet suchen

Hallo liebe Excelfreunde

Ich würde mal wieder gerne etwas lernen.
Es gibt folgende Aufgabe. Ich versuche das mal ohne Beispieldatei, da diese sehr umfangreich und natürlich streng geheim sind :)

Jeden Monat wird eine neue Datei erstellt mit einer unterschiedlichen Anzahl an Sheets.
Aber in jeder Datei gibt es einen Sheet "DPL"
und am Anfang jeden Monats sollen die Daten des Vormonats aus diesem Blatt übernommen werden. Kein Problem.
Das Makro soll mit einer Abfrage beginnen, ob die Datei des Vormonats überhaupt geöffnet ist.
Suche nach Namen fällt aus, da sich der ja auch jeden Monat ändert.

Mein Ansatz ist der, dass ich jede geöffnete Datei nach dem Blatt "DPL" durchsuche, und wenn gefunden dort nachschaue, ob es das Datum des Vormonats ist. (steht in D5)

Der Code dafür sieht bisher so aus:

Sub Übertrag()
    
    Dim wb As Integer
    Dim ws As Integer
    Dim strDateiname As String
    
    For wb = 1 To Workbooks.Count
        For ws = 1 To Workbooks(wb).Worksheets.Count
            If Workbooks(wb).Worksheets(ws).Name = "DPL" Then
                If Month(Worksheets("DPL").Cells(5, 4)) = Month(Workbooks(wb).Worksheets("DPL").Cells(5, 4)) + 1 Then
                    strDateiname = Workbooks(wb).Name
                    Exit For
                End If
            End If
        Next ws
        If strDateiname > "" Then Exit For
    Next wb
End Sub