'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