excel vba if range is not nothing