Close all code windows

[TrekBiker]

I'd like to be able to close all open code windows using a keyboard shortcut

Tried this but nothing seemed to happen when hitting Shift + Control + Q

Submacro +^Q
RunCode Function Name CloseWindows()
StopMacro

with

Public Function CloseWindows()
Dim aob As AccessObject

With CurrentProject
   For Each aob In .AllModules
       If aob.IsLoaded Then
           DoCmd.Close acModule, aob.Name, acSaveYes
       End If
   Next aob
End With

End Function

 

[TrekBiker]

Ah, found that holding CTRL+F4 does the job.

This works fine.