I have the following code to open a calendar when I select cell C10

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/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("C10"), 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

My problem is that sometimes I open a file with various values that are then
copied to the calendar sheet. One of then is a date for C10. The code fails
because it wouldn't allow copying to this calendar cell

Is there anyway to overcome this problem?

Application.EnableEvents = False
Range("C10").Value = DateSerial(2006,3,5)
Application.EnableEvents = true

--
Regards,
Tom Ogilvy


"Oldjay" wrote in message
...
I have the following code to open a calendar when I select cell C10

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/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("C10"), 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

My problem is that sometimes I open a file with various values that are
then
copied to the calendar sheet. One of then is a date for C10. The code
fails
because it wouldn't allow copying to this calendar cell

Is there anyway to overcome this problem?

Tom - where do I put this code? I have tried every where I can think of but
it still doesn't work.

"Tom Ogilvy" wrote:

Application.EnableEvents = False
Range("C10").Value = DateSerial(2006,3,5)
Application.EnableEvents = true

--
Regards,
Tom Ogilvy


"Oldjay" wrote in message
...
I have the following code to open a calendar when I select cell C10

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/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("C10"), 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

My problem is that sometimes I open a file with various values that are
then
copied to the calendar sheet. One of then is a date for C10. The code
fails
because it wouldn't allow copying to this calendar cell

Is there anyway to overcome this problem?

My problem is that sometimes I open a file with various values that are
then
copied to the calendar sheet. One of then is a date for C10.

So it would be integrated with the code that copies a value to C10 of the
calendar sheet

this line

Range("C10").Value = DateSerial(2006,3,5)


was just an example of placing a value in C10. Obviously you would use
your code.

--
Regards,
Tom Ogilvy

"Oldjay" wrote in message
...
Tom - where do I put this code? I have tried every where I can think of
but
it still doesn't work.

"Tom Ogilvy" wrote:

Application.EnableEvents = False
Range("C10").Value = DateSerial(2006,3,5)
Application.EnableEvents = true

--
Regards,
Tom Ogilvy


"Oldjay" wrote in message
...
I have the following code to open a calendar when I select cell C10

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/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("C10"), 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

My problem is that sometimes I open a file with various values that are
then
copied to the calendar sheet. One of then is a date for C10. The code
fails
because it wouldn't allow copying to this calendar cell

Is there anyway to overcome this problem?