Отменить выделение Range в Excele - VB

Формулировка задачи:

Подскажите пожалуйста а можно ли отменить выделение ранга если он становиться больше чем одного cell.

Решение задачи: «Отменить выделение Range в Excele»

textual
                            Листинг программы 
                        
                            <font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_SelectionChange(<font color="blue">ByVal</font> Target <font color="blue">As</font> Range)
    <font color="blue">If</font> Target.Rows.Count * Target.Columns.Count > <font color="darkblue"><b>1</b></font> <font color="blue">Then</font> Target.Range(<font color="teal">"A1"</font>).<font color="blue">Select</font>
<font color="blue">End</font> <font color="blue">Sub</font>