How to highlight an active line ?

[Basaam]

hi,

In Microsoft Excel, I would like the current line or active line to be highlighted. Also, suggest me if I highlight an active line with a specific color, then how can I modify it with a different color ? Can anybody help me providing the useful and related information about the same ?

thank you...

[Raine]

Highlight the Column of the Selected Cell using MACRO

Consider the following Macro Code

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 

Static cc

If cc <> "" Then
With Columns(cc).Interior
.ColorIndex = xlNone
End With
End If

c = Selection.Column
cc = c

With Columns(c).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Sub

[Raine]

• This macro will highlight the row and column of the active cell.
• This will fill the column of the active cell with a solid background color and remove the color when a different cell is selected within the excel spreadsheet.
• Anytime you select a different cell, the new column and row will be highlighted.
• This is a great macro for zeroing in on a specific cell during a presentation or just when working in a really big spreadsheet.
• Also, if you remove the gridlines from the spreadsheet, it can be hard to determine which row or column a cell is in and this will allow you to figure that out much quicker.
• This macro will overwrite any previous color in the selected cell and column. That means that if you have a worksheet with a lot of background colors and you use this macro and start selecting cells, the previous background colors will disappear.

To change the color of the highlight change the number in this line of code .ColorIndex = 6.

[Macarenas]

I had a small macro that kept the selected cell's row highlighted in yellow. I wanted to modify it according to my preferences -

Here's the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
If Application.WorksheetFunction. CountA(Range(Target.Address).EntireRow.Offset(-1, 0)) <> 0 Then
Target.EntireRow.Interior.ColorIndex = 6
End If
End Sub

[georgie1]

Two options from youtube:

1) http://www.youtube.com/watch?v=bGjqDGF7xaM gives instructions on how to do this very neatly with conditional formatting and vba (from www.msofficegurus.com)
2) http://www.youtube.com/watch?v=hXhI-NaEaqM shows an addin you can install (from www.cloudninepointzero.com)