On Aug 18, 2:01*pm, "Bernie Deitrick" <deitbe @ consumer dot org
wrote:
Charles,

Set a reference to the Analysis Toolpak * (atpvbaen.xls) and then use code like

Dim myDate As Date
myDate = Workday(CalendarDateValue, 7)
MsgBox Format(myDate, "mmmm d, yyyy")

where *CalendarDateValue is the date value returned by the calendar.

HTH,
Bernie
MS Excel MVP

"Charles" wrote in message

...

I have a userform calendar and and would like to add 7 or more working
days the date value of *the calendar.
I've looked for answers on this forum and tried to adapt the codes
found, but was unable too.
Any help or suggestions would be appreciated.

Bernie,
Thanks. Your suggestion worked.
Also thanks to Matthew.