Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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