Add days count

[jsoros60]

Hi,

how can i add to the code below another line to counts days left/pass for the schedule event:


here is the code:

Code: Select all

For Each cell In Worksheets("TNW_TASK").Range("A4:A50")

If Date >= cell.Value - 3 Then

MsgBox "Hi Jose," & vbNewLine & "Today(" & Format(Date, "d/m/yy") & ")" & vbNewLine & _
"Name of the event : " & Worksheets("TNW_TASK").Range("C" & Range(cell.Address).Row).Text

End If

Next

End Sub

thanks

[Don]

Read the message at the top of the page. New posts need to be made a TeachExcel.com in the forum there.