CLOSE UNUSED WINDOWS IN VBE

Hello,
I ask for macro which close all windows in Visual basic Editor except the active.
Greetings!