Highlight the selected cell.

[adam]

Hi anyone,

How could the following code made to highlight the selected cell instead of C67 only?

Code: Select all

Sub Highlight() 
    Range("C67").Select 
    With Selection.Interior 
        .Pattern = xlSolid 
        .PatternColorIndex = xlAutomatic 
        .Color = vbYellow 
        .TintAndShade = 0 
        .PatternTintAndShade = 0 
    End With 
End Sub 

Any help on this would be kindly appreciated.

[HansV]

Remove the line

Range("C67").Select

[adam]

Thanks for the help Hans. The code works fine how could the thick border that appears by default around the selected cell be removed?

[HansV]

You can't change that.

[adam]

How could the code be made as a worksheet event code so that the selected cell gets highlighted automatically.

[HansV]

That's tricky, I wouldn't do that. You'd have to keep track of which cell is selected and you might easily end up with incorrectly highlighted cells.

But if you want something similar, look at Chip Pearson's RowLiner Add-In or Jan Karel Pieterse's Follow Cell Pointer add-in in JKP-ADS Download page (both are free).

[adam]

Thanks for the help Hans. I do really appreciate your help.