Hello, Doc;
Obviously the loop to search the cells will take some time; here is another
way using the Intersect method to see if the activecell and the data range
overlap:

Sub AssayListInsert()
Dim Row As Integer, InRange As Range, AssayDescList As Name
Row = 7
Do While Not Range("B" & Row) = ""
Row = Row + 1
Loop

' New part below:
Set InRange = Intersect(ActiveCell, Range(AssayDescList))
If Not(InRange Is Nothing) Then Range("B" & Row).Value =
Left(ActiveCell, 4)

End Sub

"I'm not a doctor, but I play one on TV"
K Dales

"Dr.Schwartz" wrote:

I have a data range called AssayDescList that is imported from a database in
column C. How can I programatically check if the ActiveCell is placed within
that data range?

Here is what I came up with so far:

Sub AssayListInsert()
Dim Row As Integer, Cell As Range, AssayDescList As Name
Row = 7
Do While Not Range("B" & Row) = ""
Row = Row + 1
Loop
For Each Cell In Range(AssayDescList)
If Cell.Address = ActiveCell.Address Then
Range("B" & Row).Value = Left(ActiveCell, 4)
Exit Sub
End If
Next
End Sub

Can anyone help me correct this or even suggest an easier way?

Thanks
The Doctor