How can this be looped??

[HockeyDiablo]

0down votefavorite ​

Having a heck of a time looping this; D2 is where my list starts. I would like to have it ran for d3, d4, d5, d6.... until a blank space. This program searches for the name in Column D and if it finds it, it places it in Column E so that would need to also increase with column D; e2,e3,e4,e5,e6... Sub james() Dim celltxt As String celltxt = ActiveSheet.Range("D2").Value DELETE_EJ If InStr(1, celltxt, "Christy", vbTextCompare) Then Range("E2").Value = "Christy" ElseIf InStr(1, celltxt, "Kari", vbTextCompare) Then Range("E2").Value = "Kari" ElseIf InStr(1, celltxt, "Sue", vbTextCompare) Then Range("E2").Value = "Sue" ElseIf InStr(1, celltxt, "Clayton", vbTextCompare) Then Range("E2").Value = "Clayton"

<tbody>
</tbody>

 

[oldbrewer]

for j=2 to 100
if cells(j,4)...............then cells(j,5) = ..........
next j

you can have as many if cells(j,4)= as you have names to check