Date Check
 

I am looking for code that does the following
Looks at active cell
Checks to see if the date value is a Friday date and if it is within 4 days
of todays date. If so Varible x = "OK"

Thanks,
Aaron

Date Check
 

Sub iffriday()
c = Weekday(ActiveCell)
If c = 6 And c = 2 And c <= 10 Then MsgBox "ok"
End Sub


--
Don Guillett
SalesAid Software

"Aaron" wrote in message
...
I am looking for code that does the following
Looks at active cell
Checks to see if the date value is a Friday date and if it is within 4
days
of todays date. If so Varible x = "OK"

Thanks,
Aaron