On Sep 21, 12:02 pm, FSt1 wrote:
hi
i did a little test and it works
Sub Test()
Dim c As Range
Dim r As Range
Set r = ActiveCell
For Each c In Range("J1:J5") ' your list?
If c.Value = r.Value Then
ActiveCell.Offset(0, 1).Value = "gotit"
Exit For
End If
Next
End Sub

it should give you the basic idea. edit to fit your code.
"Bill (Unique as my name)" wrote:

Apologies for the cross post.

Here is a sample of VBA code used to place a value in a cell base on
the value entered in the cell previous

If LCase(.Value) = "capital" OR _
LCase(.Value) = "grounds" OR _

(etc., for many lines)

..Offset(0, 1).Value = "MP"

The code works fine. Now I want to refer to a list on a sheet to
determine the value of a cell, i.e., if the value in a cell equals an
item from the sheet list, then a value is assigned to another cell.

Is this possible?

Thank you in advance.

Thanks FSt1. So beautiful. So Concise.