Vba Function Object Variable Or With Block Not Settling