hi mr. excelent
ur code worked excelnt
many many thanks 4 ur time n effort realy appreciable.........

but i made some small changes

original code
For t = 1 To d
Range("E" & t) = Range("G" & Range("H1:H" & h).Find(Range("D" & t),
LookIn:=xlValues).Row)
Next

modified one
For t = 1 To d
Range("E" & t) = Range("H" & Range("g1:g" & h).Find(Range("D" & t),
LookIn:=xlValues).Row)
Next

by mistake u placed "g" ,wher we supoose to put "h" n vice
versa..........

wil u plz spend some more time to xplain this code i mean
from .......on error resume next or u cud suggest sum site or
tutorial wher from i can learn this

thnks in advance