Hello Yesh,

It looks like the code is extracting the value of a single cell within
the Range. Change your code to this...

val = Activesheet.Cells(r+ 1, c ).Value

It doesn't need to be reconverted into "A1" format.

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=479853