Wayne, you could use something like this, will show calendar from A4:A100,
when you double click on a date it will be put in the active cell then the
calendar will hide
Private Sub Calendar1_DblClick()
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("A4:A100"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else: Calendar1.Visible = False
End If
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **
Wayne Dolley said:
OK excellent, Calendar now up and running, small problem but still an issue.
How can I get the calendar to drop off, upon selecting my date.
As it is I have to select the date from the calendar and then I have to
click back in the cell in order to be able to move on to another cell.
Also my calendar is not required in the column until a specific row, no.4.
How do I prevent it occurring in row 1,2, & 3.