try something like this (I havent tested it)....

dim lngRow as long
dim lngCol as long
dim lngPasteRow as long
dim lngPasteCol as long
dim tempvalue

lngcol = 1
lngrow = 1
lngpastecol = 1
lngpasterow = 2

with sheets("Sheet1")

do until lngcol 8

tempvalue = sheets("Sheet2").cells(lngrow,lngcol)

if isdate(tempvalue) then
.cells(lngpasterow,lngpastecol) = tempvalue
lngpasterow = lngpasterow +1
end if

lngcol=lngcol+1

loop
end with

...no doubt people will say it's noddy - but its simple to understand.
You could do it with arrays, dictionaries, ranges or classes, but the
will all do the same thing

--
MattShoreso
-----------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...nfo&userid=347
View this thread: http://www.excelforum.com/showthread.php?threadid=53047