Pop-up Calendar

[00Cameron]

Can anyone tell me how to insert a pop-up Calendar within a cell that opens when you click in the cell or when you type in the first number of the date then disappears when you select a date. Much appreciated in advance.

 

[John_w]

Try the calendar date picker at Excel VBA date picker - Trevor Eyre.

Follow the instructions to import the date picker userform code into a new workbook.

To display the calendar when you select a cell (for example B6) put this code in the sheet's sheet module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim form As CalendarForm
    Dim d As Date

    If Target.Address = "$B$6" Then
        Set form = New CalendarForm
        d = form.GetDate(SelectedDate:=Date)
        If d > 0 Then Target.value = d
    End If

End Sub