VBA: aprendo una cartella questa si posizione nella metà sinistra desktop se la destra è occupata

Windows 11

Excel 2021

Nel progetto VBA > Questa_cartella_di_lavoro

ho la seguente routine che all'apertura obbliga la cartella a posizionarsi sul lato sinistro del desktop:

Private Sub Workbook_Open()

' Posiziona i fogli nella metà sinistra del desktop

With ActiveWindow

    .WindowState = xlNormal 'Rendere la finestra normale

    .Zoom = 100 'Rendere il zoom a 100%

    .Width = 585 'Larghezza desiderata 538 per A4 e bordo (px)

    .Height = 640 'Altezza desiderata (px)

    .Top = -5  'Posizione verticale desiderata (da alto in basso)

    .Left = -5 'Posizione orizzontale desiderata (da sinistra a destra)

End With

End Sub

C'è un modo per obbligare una nuova cartella che viene aperta a posizionarsi sul lato destro quando si apre se il lato sinistro è già aperto?

Intuitivamente dovrei individuare la presenza di una cartella aperta, e se c'é, tramite If Then End If posizionarla dove serve.

Grazie