Try this change from last posting

from
sht.Cells(1, 1).Resize(1, colCount).copy destination:=mst.Cells(1,
1).Resize(1, colCount)
to
sht.Cells(1, 1).Resize(1, colCount).copy destination:=mst.Cells(1, 1)


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=152401

Microsoft Office Help