Todo lo que estoy tratando de hacer aquí es guardar una referencia a la ventana activa actualmente, pero no parece estar funcionando. Me da un error de tiempo de ejecución en la última línea.

Dim SourceWindow As Window, QACheckWindow As Window
SourceWindow = ActiveWindow

No estoy exactamente seguro de por qué. No esActiveWindow ¿Se supone que vuelve la ventana activa actualmente? Si no, ¿cómo puedo hacer una referencia a él?

EDITAR: Lo anterior está justo al principio de mi función, así que todo lo que hay antes de que seaSub FuncName()