Posted to microsoft.public.excel.programming

Alex[_26_] Alex[_26_] is offline

external usenet poster

Posts: 10

Again about Row Highlighting [HELP]

THANKS FROM ITALY.
IT WORKS GREAT, THANK YOU AGAIN FRIEND,

Ale.

"Tom Ogilvy" wrote in message ...
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
Cells(oldRange.row, 1).Interior.ColorIndex=colorIndices
End If
colorIndices=Cells(Target(1).row,1).Interior.Color Index
cells(Target(1).Row,1).Interior.ColorIndex=15
Set oldRange=Cells(Target(1).Row,1)
End Sub

--
Regards,
Tom Ogilvy

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
highlighting	Jane Griffel[_2_]	Excel Discussion (Misc queries)	2	February 11th 09 06:07 PM
highlighting	Jade	Excel Discussion (Misc queries)	1	July 2nd 08 04:54 PM
Highlighting a Row	Fufu	Excel Worksheet Functions	2	March 17th 06 10:16 PM
Highlighting blanks via GO TO SPECIAL is not highlighting blank cells - HELP, I'm totally stuck.	Jamie Furlong	Excel Discussion (Misc queries)	6	August 28th 05 09:27 PM
Highlighting changes	yolanda	Excel Discussion (Misc queries)	1	February 10th 05 08:53 PM

All times are GMT +1. The time now is 04:49 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us