conditionla format based on cursor location

[Guest]

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

 

[Trevor Shuttleworth]

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

 

[Guest]

Excelent

Thanks

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

 

[Trevor Shuttleworth]

You're welcome. Thanks for the feedback.

Excelent

Thanks