Try this:

col = sh1.Cells(i, "IV").End(xlToLeft).Column

And you may want to add one more declaration:

Dim LastRow as long
(Right at the top with the others.)

wrote:

Thanks Dave.. but the code is not having any symbol between "f" and "t"
in xltoleft...

I checked it again on my system...the symbol appeared while I copied
the code from my system...

there is no symbol between "f" and "t"..

Can u guess what is wrong then?

Ashish Kumar

--

Dave Peterson