Hi,
    Pls kindly help.. i need to write the formula using vb, such as if the data's date is within next 3 months, i need to set the status of the action item to 'Due soon'.
Eg) Today is in the month of may, so any dates in the data from May->July should have a status set to 'Due Soon'..

Thanks

Here you have miracles

Sub Check_Date_Within_3_Months()



Dim CurrentDate As Date
Dim ThirdMonthDate As Date
Dim D1Date As Date

On Error Resume Next

CurrentDate = Now
ThirdMonthDate = DateAdd("m", 3, CurrentDate)
D1Date = "2007/06/15"

If DateDiff("d", CurrentDate, D1Date) > 0 And DateDiff("d", ThirdMonthDate, D1Date) < 0 Then
    MsgBox "Date is within the period"
    'Set action to Due Soon
Else
    MsgBox "Date is outside the period"
End If


End Sub

Cheers
Shasur

http://www.vbadud.blogspot.com