Changing Row Colour When Cell Selected

[hamistasty]

I want the row in column A that is selected to high a light blue colour (But not the cell in A (ie. A & i)). Then when I click off the row I want it to go back to its original colour (white).

help, please?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim Changed As Range
Dim WS As Worksheet, I As Long
Set Changed = Intersect(Target, Range("A7:A" & Range("A" & Rows.Count).End(xlUp).Row))
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Changed Is Nothing Then
    
        Select Case Right(Target, 3)

           Case 1

           Case 2

           Case 3
           
       End Select
       
        Else
        Columns("A:CK").EntireColumn.Hidden = False
        
    End If
     Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        
End Sub

 

[VoG]

See if this helps http://www.mrexcel.com/forum/showthread.php?t=556956

 

[hamistasty]

I can't get it to work. Any help?

 

[hamistasty]

Am I close?

  For I = 7 To Range("A" & Rows.Count).End(xlUp).Row
        
  If Not Intersect(Target, Range("A" & I)) Is Nothing Then
        Range("A" & Target.Row).Interior.ColorIndex = xlNone 'Remove prev coloring
        Range("A" & Target.Row).Interior.ColorIndex = 6
    Else
         Range("A" & Target.Row).Interior.ColorIndex = 6
    End If
    
    Next

 

[hamistasty]

Ok, I've worked a bit on it and I've got this:

     For I = 7 To Range("A" & Rows.Count).End(xlUp).Row
 
  If Not Intersect(Target, Range("A" & I)) Is Nothing Then
        Range("A" & Target.Row).Interior.ColorIndex = xlNone
    Else
        Range("B" & Target.Row).EntireRow.Interior.ColorIndex = 6
    End If
 
    Next

What I'd like is:
1. It only highlights when I click a column A cell. Currently it works when I click on any cell in the row.
2. It highlights the entire row except column A (So B onwards). It currently highlights the entire row.
3. When I click off a column A cell, the highlight dissapears. It currently stays highlighted when I click off the cell.

Any help?

 

[hamistasty]

Well I got it working.

If Not Intersect(target, Range("A:A")) Is Nothing Then
     Range("B" & target.Row, Range("CK" & target.Row)).Interior.ColorIndex = 6
    Else
    End If

But how do I highlight the same row white once I click OFF the cell/select a different cell?

 

[VoG]

Try

If Not Intersect(target, Range("A:A")) Is Nothing Then
    Cells.Interior.ColorIndex = xlNone
     Range("B" & target.Row, Range("CK" & target.Row)).Interior.ColorIndex = 6
    Else
    End If

but I think the conditional formatting method is better.