Display List of Open Windows

The example displays the Window List dialog box as displayed by the Windows, More Windows menu option. This works even if there are less than 8 windows open.

'***************** Code Start *******************
'Code by Terry Wickenden

Sub WinList()
  On Error GoTo ErrWinList
    
  DoCmd.RunCommand acCmdMoreWindows
    
  Exit Sub
ErrWinList:
  Select Case Err
    Case 2501
      'Cancel selected in the dialog box
    Case Else
      MsgBox Err & Err.Description
  End Select
End Sub

'****************** Code End ********************

Return to Example List