Add count days

0

Hi,

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

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

thank you

Answer
Discuss


Answer the Question

You must create an account to use the forum. Create an Account or Login