set the background color of the current cell(active cell)

  • Thread starter Thread starter kang
  • Start date Start date
K

kang

how to set the background color the row of the current cell(active cell)
each time I click the cells.
 
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
 
Back
Top