How about using copy|paste special|values, followed by paste special|formats



MDubbelboer wrote:

is there anyway to do this on a larger scale?

for example using:

copyarea = SourceSheet.Range(SourceSheet.Cells(firstrow(i), 1),
SourceSheet.Cells(lastrow(i), Last_Column))

DestSheet.Range(DestSheet.Cells(2, 1), DestSheet.Cells(lastrow(i) -
firstrow(i) + 2, Last_Column)) = copyarea

Just seems to copy the values, if my source range has differing number
formats (i.e. some are text some are numbers) and I use the commands
listed everything becomes general.

Any advice?

--
MDubbelboer
------------------------------------------------------------------------
MDubbelboer's Profile: http://www.excelforum.com/member.php...o&userid=36330
View this thread: http://www.excelforum.com/showthread...hreadid=519666

--

Dave Peterson