in đậm dòng chọn (1 người xem)

[Minh Đức 1309]

em có 1 bảng tính gôm 2 cột a,b.Em muốn khi chọn cột B vd:B1 thì sẽ tô màu ô A1 và khi di chuyển vùng chọn thì sẽ di chuyện vùng in lên ở cột A theo

 

[Minh Đức 1309]

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn

If xRow <> "" Then

With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Rows(pRow).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End Sub

E có đoạn code sau mà nó in đậm cả 1 row và cả trang tính luôn,em chỉ muốn n in đậm khi minh chọn vào bảng và n chỉ in đậm dòng trong bảng thì làm ntn ạ