Vba Do If Else In One Line