Generic Date Picker in Excel

datepicker.vba

' Insert Microsoft Date and Time Picker control in the document and paste the following code on the sheet.
' Reference: http://www.techrepublic.com/blog/microsoft-office/how-to-acquire-position-and-hide-a-calendar-control-in-an-excel-sheet/
Private Sub DTPicker1_Change()
  ' Set picked date to active Cell.
    ActiveCell.Value = Me.DTPicker1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Anchor control to the active cell.
' Display control only when active cell contains a date.
If IsDate(ActiveCell.Value) Or ActiveCell.Value = "dd/mm/yyyy" Then
    With DTPicker1
        .Visible = True
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height
    End With
Else
    DTPicker1.Visible = False
End If
End Sub