Hi All,



I have a worksheet were every time a user double clicks on cell A7 a pop up
calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:



Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub



What I would like to do is to have the pop up calendar appear every time a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C starting
a column C7.



Any suggestions?



Thanks,



Steve