Application.ActiveWindow (Excel)

Retorna um objeto Window que representa a janela ativa do Excel a janela na parte superior. Retorna Nothing se não houver janelas abertas. Somente leitura.

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveWindow