You can use this for a range with more areas Mike

Note: You can use this if your range is not one area
If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then

See my webpage


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Mike Fogleman" wrote in message ...
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