Colour the active row, then remove colouring when row is non

[svmac]

How can I colour the active row, then remove colouring and apply it to another row when focus moves?

[Tom Urtis]

Right click on your sheet tab, left click on View Code, and paste this in. It will hilite your selected row in blue. Modify for color index number.

Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 8
End Sub

Tom Urtis

[RWinfield]

Right click on your sheet tab, left click on View Code, and paste this in:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = -4142
Target.EntireRow.Interior.ColorIndex = 8
End Sub

This will color the row you are in with a shade of blue.

or

If you want it to apply to all the worksheets in the workbook then right click on the excel icon next to FILE on the toolbar, left click on View Code and paste the following in:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = -4142
Target.EntireRow.Interior.ColorIndex = 8
End Sub


Rick

[Barrie Davidson]

Note of caution - this can slow down your spreadsheet and you lose any colouring you already might have had in that row.

[grassgirlgem]

sorry for being nosey but what did you use this for? its good and i was wondering how i could incorporate it into an it project for my college work. thanx Gem

[Iridium]

For info a HOF winner

http://www.mrexcel.com/hof001.php

Any good to you?

[grassgirlgem]

yep, cheers! xx