Solved: Calendar pop up with date AND time

[Bob Phillips]

[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Goto errH
Application.EnableEvents = False

If Not Intersect(Target, Me.Columns("C")) Is Nothing Then

Call OpenCalendar

ElseIf Target.Address = "$B$15" Then

Range("B218:B219").Select
End If
errH:
Application.EnableEvents = True
End Sub[/vba]