engaging with dates
 

How do i say that :
if my dates in a column I beginning at row 6 in a sheet called WAS is less
than the dates (span as 5 columns , date begining from mon of a week to
friday of taht week) in the next sheet , then there should not be any entry
in the second sheet and msgbox shud say "ck planned end date)

the foll piece of code works:


Dim StartDate As Date
Dim EndDate As Date
Dim da As Date
Dim o As Integer

StartDate = Date - Weekday(Date, 2) + 1
EndDate = StartDate + 4
o = 6
For da = StartDate To EndDate
Cells(2, o).value = da
Cells(2, o).NumberFormat = "ddd"
o = o + 1
Next da


I havethe following code in place which doesnt work for ehich i require help



If Sheets("WAS").Cells(j, 8).value <= da Then
MsgBox ("Check planned end date")
end if