Solved: Calendar pop up with date AND time

[AleemAM123]

Hi everyone,

I'm trying to create a form for data input and I want a calendar popup when you click on a particular column, column C. I have gotten it to work for one cell, C15 (the code for this is under sheet1.


The orignal excel sheet came from this site: http://www.fontstuff.com/vba/vbatut07.htm

[VBA]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errH
Application.EnableEvents = False
Select Case Target.Address(0, 0)
Case "B15"
Range("B218:B219").Select
Case "C15"
Call OpenCalendar


'Case "C15"
'Call Macro2(Target)
Case Else
GoTo errH
End Select
errH:
Application.EnableEvents = True

[/VBA]

Is there any way to do this?

The other thing is I wanted the user to be able to select a date and a time from the same control. Is there a calendar that shows the time as well?

Thanks in advance.