I found this great code to highlight the current location of a cell. I am
not a code writer and have tried to adjust this code to highlight the cell
immediatly to the left of the current cursor location, but have not been
sucesfull.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Static c As Range
Static ci As Integer
If Not c Is Nothing Then
c.Interior.ColorIndex = ci
End If
ci = Target.Cells(1).Interior.ColorIndex
Target.Cells(1).Interior.ColorIndex = 36
Set c = Target.Cells(1)


End Sub

Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static c As Range
Static ci As Integer
If Not c Is Nothing Then
c.Interior.ColorIndex = ci
End If
On Error Resume Next
ci = Target.Cells(1).Offset(0, -1).Interior.ColorIndex
Target.Cells(1).Offset(0, -1).Interior.ColorIndex = 36
Set c = Target.Cells(1).Offset(0, -1)
On Error GoTo 0
End Sub

Regards

Trevor


"tt66" <(E-Mail Removed)> wrote in message
news:16158C63-95CE-4D75-BE9B-(E-Mail Removed)...
>I found this great code to highlight the current location of a cell. I am
> not a code writer and have tried to adjust this code to highlight the cell
> immediatly to the left of the current cursor location, but have not been
> sucesfull.
>
>
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
>
> Static c As Range
> Static ci As Integer
> If Not c Is Nothing Then
> c.Interior.ColorIndex = ci
> End If
> ci = Target.Cells(1).Interior.ColorIndex
> Target.Cells(1).Interior.ColorIndex = 36
> Set c = Target.Cells(1)
>
>
> End Sub
>
>

Excelent

Thanks

"Trevor Shuttleworth" wrote:

> Try:
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Static c As Range
> Static ci As Integer
> If Not c Is Nothing Then
> c.Interior.ColorIndex = ci
> End If
> On Error Resume Next
> ci = Target.Cells(1).Offset(0, -1).Interior.ColorIndex
> Target.Cells(1).Offset(0, -1).Interior.ColorIndex = 36
> Set c = Target.Cells(1).Offset(0, -1)
> On Error GoTo 0
> End Sub
>
> Regards
>
> Trevor
>
>
> "tt66" <(E-Mail Removed)> wrote in message
> news:16158C63-95CE-4D75-BE9B-(E-Mail Removed)...
> >I found this great code to highlight the current location of a cell. I am
> > not a code writer and have tried to adjust this code to highlight the cell
> > immediatly to the left of the current cursor location, but have not been
> > sucesfull.
> >
> >
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> >
> >
> > Static c As Range
> > Static ci As Integer
> > If Not c Is Nothing Then
> > c.Interior.ColorIndex = ci
> > End If
> > ci = Target.Cells(1).Interior.ColorIndex
> > Target.Cells(1).Interior.ColorIndex = 36
> > Set c = Target.Cells(1)
> >
> >
> > End Sub
> >
> >
>
>
>

You're welcome. Thanks for the feedback.


"tt66" <(E-Mail Removed)> wrote in message
news:1FE0A188-1A50-4393-B4C6-(E-Mail Removed)...
> Excelent
>
> Thanks
>
> "Trevor Shuttleworth" wrote:
>
>> Try:
>>
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> Static c As Range
>> Static ci As Integer
>> If Not c Is Nothing Then
>> c.Interior.ColorIndex = ci
>> End If
>> On Error Resume Next
>> ci = Target.Cells(1).Offset(0, -1).Interior.ColorIndex
>> Target.Cells(1).Offset(0, -1).Interior.ColorIndex = 36
>> Set c = Target.Cells(1).Offset(0, -1)
>> On Error GoTo 0
>> End Sub
>>
>> Regards
>>
>> Trevor
>>
>>
>> "tt66" <(E-Mail Removed)> wrote in message
>> news:16158C63-95CE-4D75-BE9B-(E-Mail Removed)...
>> >I found this great code to highlight the current location of a cell. I
>> >am
>> > not a code writer and have tried to adjust this code to highlight the
>> > cell
>> > immediatly to the left of the current cursor location, but have not
>> > been
>> > sucesfull.
>> >
>> >
>> >
>> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >
>> >
>> > Static c As Range
>> > Static ci As Integer
>> > If Not c Is Nothing Then
>> > c.Interior.ColorIndex = ci
>> > End If
>> > ci = Target.Cells(1).Interior.ColorIndex
>> > Target.Cells(1).Interior.ColorIndex = 36
>> > Set c = Target.Cells(1)
>> >
>> >
>> > End Sub
>> >
>> >
>>
>>
>>