Hello again,

Alan, you are right. The code I posted is incorrect. I was trying som
things and posted incorrect code. The error is at the line:

Set WorkingRange = ActiveSheet.Range(Cells(TopRow, LeftColumn)
Cells(BottomRow - TopRow + 1, RightColumn - LeftColumn + 1))

near the end of the code. It should be:

Set WorkingRange = ActiveSheet.Range(ActiveSheet.Cells(TopRow
LeftColumn), ActiveSheet.Cells(BottomRow, RightColumn))

I would like to thank all others who replied. I will study your cod
and try to incorporate it into my code.

Thank you all for your help!

Ioanni

--
ie
-----------------------------------------------------------------------
iev's Profile: http://www.excelforum.com/member.php...fo&userid=2675
View this thread: http://www.excelforum.com/showthread.php?threadid=40007