excel vba if not application intersect target