title: UserForm adding DatePicker to Monthview and populating ActiveCell with data
body: <p>I am using a MonthView form in VBA that allows the user to right-click and select InsertDate and choose from the form the date which will then populate into the Active Cell.  This code is working fine.  The issue is I need to add the time as well (military) which will succeed the date (i.e. 04/23/2014 18:11).  </p>
  
  <p>I am using the DateTimePicker form in VBA and have added this to the form.  Now I have a monthview and a DT Picker that is custom formatted for HH:mm.  The code of the entire user form is listed below.  The other part of the code is in "ThisWorkbook" which simply builds the context menu button "Insert Date" and attaches calendar and a Module that shows the calendar. My question is in the Sub DTPicker.  I want the values of both the MonthView and the DTPicker to populate the active cell, using the format mentioned above.  Any suggestions?</p>
  
  <p>Thanks in Advance!!</p>
  
  <pre><code>`Private Sub CommandButton1_Click()
  Unload Me
  End Sub
  
  
  Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
  On Error Resume Next
  
  ??????
  
  
  End Sub
  
  
  Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
  On Error Resume Next
      ActiveCell.value = DateClicked
      Unload Me
  End Sub
  
  Private Sub UserForm_Click()
  
  End Sub
  
  
  Private Sub UserForm_Initialize1()
      If IsDate(ActiveCell.value) Then
          Me.MonthView1.value = ActiveCell
      Else
          Me.MonthView1.value = Now
      End If
  End Sub
  
  
  
  Private Sub UserForm_Activate()
      With frmCalendar
          .Top = Application.Top + 340
          .Left = Application.Left + 345
      End With
  End Sub`
  </code></pre>