Does anyone know to add a calendar drop down for all cells in a particular column?

M

mp

Thanks Ron. That worked, but I would like the calendar to disappear
after I click on a calendar day. Do you know how to do that? Thanks
again.
 
R

Ron de Bruin

You can use this

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Calendar1.Visible = False
End Sub
 
Top