VBA code for find function (reference cell value)
 

I have two columns in diferent Sheets
A
B
1 Fat Absorber (100 capsule) 1
2 Mega Protect 4 Life (90 tablete) 2 Fat Absorber (100
capsule)
3 Acidophilus with Psylium (100 capsule) 3
4 AC-Zymes (100 capsule) 4
5 .... 5
6 .... 6 AC-Zymes
(100 capsule)
and I want to find and select in Column B the content from one or other
cells from Column A using a single VBA code.
Thanks in advance
Emil