I don't know.

You could use an inputbox and ask the user to type in a date, though.

Dim myDate as date
mydate = application.inputbox(Prompt:="Enter a date",type:=1)

if mydate = 0 then
exit sub
else
with activesheet.range("a1")
.numberformat = "mmmm dd, yyyy"
.value = mydate
end with
end if

========
If you really meant that you wanted to use a userform that contained a calendar
control to get the date, then check out Ron's site.

WLMPilot wrote:

Thanks. However, I would prefer to use the Inputbox. How can I use a
calender to select a date as input on an inputbox?

Les

"Dave Peterson" wrote:

If you're going to use the calendar control, you won't need the inputbox.

Ron de Bruin has some notes he
http://www.rondebruin.nl/calendar.htm

WLMPilot wrote:

I have added Calender Control 10.0 as an add-in. I want to allow the user to
use a calender to select a date for input via Inputbox. Once the date is
selected and entered, a macro is going to use the date.

I have no clue how to activate/use the calender control. How is this
accomplished?

Thanks,
Les

--

Dave Peterson


--

Dave Peterson