Excel Vba Set Range As Variable Resistor