Hi Rick

Mike's code will do what you have requested as long as you have inserted
a calendar onto the sheet. So step by step:

1.) In Excel select the sheet you want to apply the calendar to (any
cell for now).
2.) From the Menu's select InsertObject. This will bring up a dialog
box with a list of available Controls. Select "Calendar Control xx.x"
where xx.x is the version number. In my version of Excel 2002 this is
10.0 but it shouldn't make a difference if you have a newer version with
Excel 2003.
3.) You should now be able to see a calendar on the sheet. You may also
have an small floating toolbar with one button (Design Mode). You can
close this toolbar by clicking on the x.
4.) Right click the sheet tab and select View Code.
5.) Paste Mike's code onto the Code Module that is displayed.
6.) On the 6th line of code adjust the range to be the 1000 cells that
you would like to have the calendar linked to - Mike has assumed J1:J1000.
7.) Press Alt+Q to return to excel
8.) Select any cell OUTSIDE of the range you have specified. The
calendar should dissapear.
9.) Select any cell INSIDE the range you have specified. The calendar
will pop-up. Doubleclick on a date in the calendar and that date will
appear in the cell you selected. The calendar will remain visible until
you click on a cell outside of the range specified.

If I was implementing this for myself I would change the functionality
slightly so that only one click on the calendar is required and once a
date is selected the calendar is hidden - personal preference. To do
this right click the sheet tab again and select view code.

Replace these lines:

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

With:

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

Press Alt+Q again to return to excel.

Hope this helps
Rowan


Trickster wrote:
Rowan,

You sound like you might be able to explain this a little easier to me.
Mike had written:

Put this in the Worksheet Code Module that you want the calendar in:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("J1:J1000"), Target) Is Nothing Then
'(adjust for your range)
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Now()
Calendar1.Visible = True
Else: Calendar1.Visible = False
End If
End Sub

And then you added:

And you will need to add a calendar to your sheet...from the menus
InsertObjectCalendar Control 10.0.

I'm not sure where to even start. I know how to do most functions, but when
it comes to macros, etc., I'm lost. Can you possibly give me a step by step
procedure for setting up a column with pop-up calendars in each cell in the
column. Probably best to treat me as if you were writing Excel for Dummies?

I would be greatly in your debt if you could help me out.

Rick