How to close all of opened windows/applications except my application?

[Yance]

Hi, is there are anyone here can help me how to close all opened windows/applications except my application?

[Imdabaum]

Function CloseForms()
'Close all open forms
Dim frm As Form
For Each frm In Forms
DoCmd.Close acForm, frm.Name
Next
End Function

[Yance]

Function CloseForms()
'Close all open forms
Dim frm As Form
For Each frm In Forms
DoCmd.Close acForm, frm.Name
Next
End Function
Thank you for your reply, but i don't mean the form's window of my own application. But i want to close all window of opened application except my application

[Imdabaum]

Oh. Now that would be a different beast to slay. I'll see what I can come up with and try to post back soon.