Active Cell Fill Colour
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 |
Active Cell Fill Colour
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 |
Active Cell Fill Colour
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 |
Active Cell Fill Colour
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 |
Active Cell Fill Colour
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 |
Active Cell Fill Colour
Thanks Tom for your precious comments ...
A great Fan of Yours Best Regards Carim |
All times are GMT +1. The time now is 10:53 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com