Use something like this

MsgBox "The above agreement is due " & Format(Application.WorksheetFunction.WorkDay(Date, 30), "mm-dd-yy")


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Marilyn" wrote in message ...
Hi I've been using Ron DeBruin VBA code to send the same e mail to different
people.
I need TO ADD a line to say "The above agreement is due (30 business days
from today, including any holidays) Example: If I send out the message today,
5-12-08 it will be due 6-23-08 or 30 business days later.

Msg = "The above agreement is due ?????????????" Thank you in advance