[RESOLVED] calendar to pop-up when cell is selected

[mksegypt]

I need a VBA solution to work with Excel 10.
All I want to do is when select any cell in the range B3:B100, a calendar popup, and then the selected date shall be placed in that cell.
I do not know how to write a VBA code to do that.
Would you please help me in to do that?

Best regards,
Muhammad Shehata

[westconn1]

you can try like

Private Sub DT_CloseUp()
ActiveCell.Value = DT.Value
DT.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
    If Not Intersect(Target, Range("b3:b100")) Is Nothing Then
        DT.Value = Date
        DT.Visible = True
        DT.Top = Target.Top
    End If
End If
End Sub

in this case DT is a datepicker control on the worksheet, set to visible = false

[mksegypt]

Many thanks dear westconn1 .. you solve it very quickly and in a clever way