求助大神们帮我修改几句宏，麻烦戳进来

我看到别人写的一VBA，这个只能在一个表格中用 ，我想把他放在Personal.xls的模块中让所有的表格都能用 ，请问怎么修改啊，如下
单击一行中的任意一个单元格，即可选中整行
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Select
End Sub
另外我想只有按ctrl+q的时候这个才执行，再按就取消，或者按着ctrl+q不放手就执行着。能行吗 我不懂诶