Hi

Look here
http://www.rondebruin.nl/calendar.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Pasting column width and row heights" soft.com wrote in message
...
I am trying to use the Activex control for calendar. How to I active it. Does
anyone the the VB for behind this? Or am asking for two much.

Hi,

I also have a macro that pops up the calendar, select a date and the date is
pasted into the selected cell. I want to be able to either click in the cell
or click a drop down, and then activate the calendar. How do I do that?

I created a frmCalendar in personal.xls with the following code:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If
End Sub

Module 1 then shows the frmCalendar.

I would really appreciate any help.

"Ron de Bruin" wrote:

Hi

Look here
http://www.rondebruin.nl/calendar.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Pasting column width and row heights" soft.com wrote in message
...
I am trying to use the Activex control for calendar. How to I active it. Does
anyone the the VB for behind this? Or am asking for two much.