Application.ActiveWindow (Excel)

Devuelve un objeto Window que representa la ventana de Excel activa (la ventana superior).

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveWindow