Trying to click on a cell that will then open a calander to allow you to
select a date

Hi,

have a look at Ron De Bruin's page

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

Mike

"jcb" wrote:

Trying to click on a cell that will then open a calander to allow you to
select a date

Thanks, will have a go with this

"Mike H" wrote:

Hi,

have a look at Ron De Bruin's page

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

Mike

"jcb" wrote:

Trying to click on a cell that will then open a calander to allow you to
select a date

On 20 Sty, 11:40, jcb wrote:
Trying to click on a cell that will then open a calander to allow you to
select a date

Go to the vba editor, insert a new form into the workbook. On that
form, insert a Calendar Control. Go the code of the form (F7), insert
the following macro in the

Private Sub cal1_Click()
ActiveCell.Value = cal1.Value
Unload Me
End Sub

(I assume you named the calendar control cal1)

Then go to the code of the worksheet, that you want that thing to work
on. Insert the following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
calform.Show
Application.EnableEvents = True
End Sub

That's it.

Regards
lolo