Sub AppWindowActive() If AppWindow.Active Then MsgBox "Corel PHOTO-PAINT is currently active." Else MsgBox "Corel PHOTO-PAINT is not active at this time." End IfEnd Sub