Highlighting a section of selected row

[jeffmoseler]

I found this code online that highlights the whole row of whatever row you have selected. It works great except that you can't have any other cell in the entire sheet filled with any color or it disappears when you select another cell. I would like to have this code select the active row, columns A through M only. And when it refreshes to delete all fill colors from A2 to M34. Let me know how I could tweak this to get it to work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
        .EntireRow.Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

 

[mrmmickle1]

Try This:

[COLOR=#0000ff]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=#0000ff]ByVal[/COLOR] Target [COLOR=#0000ff]As[/COLOR] Range)
    [COLOR=#0000ff]If [/COLOR]Target.Cells.Count > 1 [COLOR=#0000ff]Then Exit Sub[/COLOR]
    Application.ScreenUpdating = F[COLOR=#0000ff]alse[/COLOR]
[COLOR=#008000]    ' Clear the color of all the cells
[/COLOR]    Range("A2:M34").Interior.ColorIndex = 0
  [COLOR=#0000ff]  With[/COLOR] Target
      [COLOR=#008000]  ' Highlight the entire row and column that contain the active cell[/COLOR]
        CurrentRow = ActiveCell.Row
        [COLOR=#0000ff]If [/COLOR]CurrentRow >= 2 [COLOR=#0000ff]And [/COLOR]CurrentRow <= 34 [COLOR=#0000ff]Then[/COLOR]
        Range(Cells(CurrentRow, 1), Cells(CurrentRow, 13)).Interior.ColorIndex = 8
        [COLOR=#0000ff]Else
            Exit Sub
        End If
    End With[/COLOR]
    Application.ScreenUpdating = [COLOR=#0000ff]True[/COLOR]
[COLOR=#0000ff]End Sub[/COLOR]