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 If End Sub