Here is some code I have in a worksheet module:

Private Sub Calendar1_Click()
ActiveCell.NumberFormat = "m/d/yyyy"
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("O6"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Not Application.Intersect(Range("D21:D27"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else
Calendar1.Visible = False
Exit Sub
End If
End Sub

Mike F
"rongripon" wrote in message
...
I would like to use a simple method to add a dropdown calendar to a
worksheet
--
RGGSR