VBA对Excel所选区域的所在行列进行高亮显示

打开Excel，查看代码，选中表写如下代码

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
     .Parent.Cells.Interior.ColorIndex = xlNone
     .EntireRow.Interior.Color = vbCyan
     .EntireColumn.Interior.Color = vbGreen
End With
End Sub

当然里面颜色用户自行改变，附件是效果，打开Sheet1就是 

点击下载此附件