Hi

Can anyone suggest some VBA code that fills the current cell with a
colour to give an easy indication which cell is selected on a large
sheet.

Thanks


--
uplink600
------------------------------------------------------------------------
uplink600's Profile: http://www.excelforum.com/member.php...fo&userid=9408
View this thread: http://www.excelforum.com/showthread...hreadid=520076

Hi uplink600

Look here
http://www.cpearson.com/excel/RowLiner.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"uplink600" wrote in message
...

Hi

Can anyone suggest some VBA code that fills the current cell with a
colour to give an easy indication which cell is selected on a large
sheet.

Thanks


--
uplink600
------------------------------------------------------------------------
uplink600's Profile: http://www.excelforum.com/member.php...fo&userid=9408
View this thread: http://www.excelforum.com/showthread...hreadid=520076

Hi 'Uplink'

Chip Pearson's got a good example of this. Check out his site at:

http://www.cpearson.com/excel/excelM...ightActiveCell

Best regards

John


"uplink600" wrote
in message ...

Hi

Can anyone suggest some VBA code that fills the current cell with a
colour to give an easy indication which cell is selected on a large
sheet.

Thanks


--
uplink600
------------------------------------------------------------------------
uplink600's Profile:
http://www.excelforum.com/member.php...fo&userid=9408
View this thread: http://www.excelforum.com/showthread...hreadid=520076

Hi uplink600,

Here is the code I am using :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
Target.Select
End Sub

HTH
Cheers
Carim

No reason for the Target.Select on the end. The selection hasn't changed.

Just note that this will clear any range you may have copied from the
clipboard effectively disabling pasting to this page.

--
Regards,
Tom Ogilvy

"Carim" wrote in message
oups.com...
Hi uplink600,

Here is the code I am using :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
Target.Select
End Sub

HTH
Cheers
Carim

Thanks Tom for your precious comments ...

A great Fan of Yours

Best Regards

Carim