I left out an exit statement

from
If Data = target.value Then
Set DestLocation = Sht.Range("J3")
found = True
End If

to
If Data = target.value Then
Set DestLocation = Sht.Range("J3")
found = True
Exit for
End If


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=186241

http://www.thecodecage.com/forumz/chat.php