Vba Set Multiple Variables To Same Value