This line CurrentRegion.Offset(1, 0) says to got to 1 row below the
Current Region.

It sounds like you need to work with the CurrentRegion only which means
that you do not need the offset function. or change the code to
CurrentRegion.Offset(0, 0)


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=548429