Hi BeSmart,

Task 2. A user needs to select Cntrl+Shift+R to return to the last cell
they entered or changed on the worksheet, regardless of where they now
are.

The current code is no longer doing this correctly, so can you suggest how
I
would write these actions into codes.

In testing it worked for me.

When I suggested amalgamating your two Worksheet_Change procedures, I
assume that you did NOT delete your goBack sub?

---
Regards,
Norman



"BeSmart" wrote in message
...
Thanks Norman - that explains the errors, however putting the "Set
LastEnteredCell = Target" into the top section of the Workbook_Change
isn't
helping, I'm still getting errors....

The tasks refer to completely separate functions within the workbook. So
perhaps you can help with the second one...

Task 1. Conditional formatting to apply to any cells that has had a value
entered by the user. The follow code already acheives this and works
well.
===============================================
Private Sub Worksheet_Change(ByVal Target As Range)

For Each c In Target
If Not Intersect(c, [M14:GR605]) Is Nothing Then
Target.Cells.Interior.ColorIndex = xlNone
If IsNumeric(Target.Value) Then
If Target.Value 0 Then
Select Case LCase(Cells(Target.Row, 5).Text)
Case Is = "Retail"
Target.Cells.Interior.ColorIndex = 38
Case Is = "Quick"
Target.Cells.Interior.ColorIndex = 37
Case Is = "Jewel"
Target.Cells.Interior.ColorIndex = 34
Case Is = "Brand"
Target.Cells.Interior.ColorIndex = 36
Case Is = "Other"
Target.Cells.Interior.ColorIndex = 2
Case Is = "Generic"
Target.Cells.Interior.ColorIndex = 2

End Select
End If
End If
End If
Next c
End Sub
=======================================

Task 2. A user needs to select Cntrl+Shift+R to return to the last cell
they entered or changed on the worksheet, regardless of where they now
are.

The current code is no longer doing this correctly, so can you suggest how
I
would write these actions into codes.

Thanks for your help
BeSmart