Hi,

Right click the sheet tab, view code and paste this in.

Public OldRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OldRange Is Nothing Then
OldRange.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 36
Set OldRange = Target
End Sub

Mike

"kang" wrote:

how to set the background color the row of the current cell(active cell)
each time I click the cells.