Working with the Active Window : Windows « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. Windows

Working with the Active Window

 
'To make sure that a window is open, check whether the Count property of the Windows collection is 0
Sub open()
    If Windows.Count = 0 Then MsgBox "There is no active window.", vbOkOnly + _
        vbExclamation, "No Window Is Open"
End Sub

 

Related examples in the same category