在名称框输入 x 后回车(名称框:编辑栏最左边的那个小方框)
全选工作表>格式>条件格式>
公式 =OR(ROW(A1)=ROW(x),COLUMN(A1)=COLUMN(x))
单击该对话框上的格式按钮,设置图案颜色.
然后将你的代码改为
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names("x").RefersTo = "=" & ActiveCell.Address
End Sub