vba if not rng is nothing then