Re: Cursor cell in colour

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Susan,

There is probably a better way...but it can be done with the Change
Event. This code appears to work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Range(Cells(1, 1), Cells(65536, 256)).Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
'
End Sub

It needs to go with the sheet for which you want this to happen.

HTH
John

.

Relevant Pages

  • Re: Add forumla
    ... Option Explicit ... Private prev ... Private Sub Worksheet_Change(ByVal Target As Range) ... Private Sub Worksheet_SelectionChange ...
    (microsoft.public.excel.misc)
  • Re: Very Novice Excel user with security question
    ... sheet for easy editing instead of just a few select cells with a double click ... a password for the cell if it is not in order to change it. ... Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, ...
    (microsoft.public.excel.misc)
  • Re: Data Validation Problem Work-Around needed
    ... On Error GoTo ws_exit ... Private Sub CheckUsed(ByVal Target As Range, ByVal Col1 As Long, ByVal Col2 ... Dim cellLink As Boolean ...
    (microsoft.public.excel.misc)
  • Re: Range with "Large"
    ... Private Sub Worksheet_SelectionChange(ByVal Target As Range) ... Dim myRange ...
    (microsoft.public.excel.programming)
  • Re: VBA Code; need linked cells to change color if condition met
    ... Private Sub Worksheet_Change(ByVal Target As Range) ... Example of English Wrksht: ...
    (microsoft.public.excel.worksheet.functions)