First, using datediff with days is kind of overkill. You could just subtract
one from the other. The difference will be in days.

with activesheet
for i = 2 to finalrow
if .cells(i,6).value = "" _
or (date - .cells(i,6).value < 8) then
'do the work
end if
next i
end with



Richard wrote:

Hi

I have created a loop, which has an or in the if argument

For i = 2 To FinalRow
If DATEDIFF("d", Cells(i, 6), Now) < 8 Or DATEDIFF("d", Cells(i, 6),
Now) = "" Then
Sheets("Project List").Cells(i, 1).Copy
Destination:=ActiveWorkbook.Sheets("Slide").Range( "B1")

Can someone please explain why this isn't working. I am trying to loop
through a range of data and perform actions only on those where cells(i,6)
are either blank or the datediff is less than 8 ie a week or less

Many thanks in advance
Richard

--

Dave Peterson