Hi Klee

If you use this example then read the information on the page about protection
http://www.rondebruin.nl/calendar.htm

You can add
Calendar1.Visible = False


Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
'ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Calendar1.Visible = False
End Sub


--

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


"Klee" wrote in message ...
Hi there,

I've added calendar to an excel spreadsheet so that when the user clicks
certain cells the calendar pops up and lets them choose the date. I have a
problem and two questions.

Problem: as long as the worksheet is unprotected it works great but when I
lock other cells on the worksheet that have formulas then protect the sheet,
I get an error that says "Unable to set the NumberFormat property of the
range class" Does anyone know what this means and how I can get around it?

Questions: Is there a way to make the calendar disappear automatically once
a date has been chosen. Currently I have to choose a date then click on a
different cell which brings me to question two. The cells beside the date
column are merged and for some reason I cannot click out of the calendar on a
merged cell. Does anyone know a way around this?

Thanks