Mark,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

If Not Intersect(Target, Range("B7:B28,C7:C28")) Is Nothing Then
myCalendar
End If

End Sub

in the worksheet code module

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mark" wrote in message
...
I am using Excel 97.

Can anyone assist me please. I am wanting some code which
(if it possible) when you double click on a cell it runs a
routine to call a calendar.

I would be using this routine only on cells B7 - B28 & C7 -
C28.

I have the code for the calendar I just need some code
start the routine off.

Regards

Mark