zantor wrote in message ...
Hi Vee,

Instead of
strto = Sheets("HPP").Range("F2").Value
strsub = Sheets("HPP").Range("A2").Value
strbody = Sheets("HPP").Range("J2").Value

try something like:
strto=sheets("HPP").cells(target.row,target.column-2)

strsub=sheets("HPP").cells(target.row,target.colum n-7)

strbody=sheets("HPP").cells(taget.row,target.colum n+2)

Hope this will help..



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/


hi
i don't understand please explain:

strto=sheets("HPP").cells(target.row,target.column-2)

strsub=sheets("HPP").cells(target.row,target.colum n-7)

strbody=sheets("HPP").cells(taget.row,target.colum n+2)