vba next for loop if condition met