Date Check

[Guest]

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

 

[Don Guillett]

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