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