Calendar to Pop Up in a specified place

First may I thank every one whose code and help I have used.

Using the code available about calendars I have one pop up on clicking in a particular cell but it blocks out other things while its open. I would like it to still activate when I select this particular cell but to open up out of range of the data it's blocking. Is this possible please?

Hi, below is the code I am using. Range C4 is the only cell I want it to activate on, selecting any other cell closes it.

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("C4"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Try:

Please Login or Register  to view this content.

Will try that out thank you very much.