add
rng1.Offset(0, 4).Value = rng.Offset(0, 4).Value
after
rng1.Value = Dat
--
dok11
-----------------------------------------------------------------------
dok112's Profile:
http://www.excelforum.com/member.php...fo&userid=1058
View this thread:
http://www.excelforum.com/showthread.php?threadid=48236