Hi all,
I have recently upgraded to Excel 2010 and discovered an issue.
I have a macro that now uses the Microsoft Calendar Control 8.0. The Reference is checked and when I click in either column D or E the following code is fired:
But I cannot click on the calendar to select a date. No response from the following code:
I tried putting a stop in the Calendar1_Click, but it never fires.
Someone have any insight? I have not changed a thing except versions.
Could there be an issue with the reference version? I built this thing so long ago I do not remember the MS Calendar Control version I orignally used, but it was XP.
TIA
Al
I have recently upgraded to Excel 2010 and discovered an issue.
I have a macro that now uses the Microsoft Calendar Control 8.0. The Reference is checked and when I click in either column D or E the following code is fired:
Code:
Option Explicit
Dim temp As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode > 0 Then Exit Sub
If Not Intersect(Target, Range("D:E")) Is Nothing Then
With Calendar1
.Height = 150
.Width = 200
.Visible = True
.Left = Target.Left
.Top = Target.Offset(1).Top
temp = Target.Address
End With
Else
temp = Target.Address
With Calendar1
.Visible = False
End With
End If
End Sub
^^^
This works great. The calendar appears and looks just like I want it, where I want it.But I cannot click on the calendar to select a date. No response from the following code:
Code:
Private Sub Calendar1_Click()
' A date has been selected, so with the calendar
With Calendar1
'Place the selected value in the correct Range.
Range(temp) = .Value
' Then hide the calendar.
.Visible = False
End With
End Sub
I tried putting a stop in the Calendar1_Click, but it never fires.
Someone have any insight? I have not changed a thing except versions.
Could there be an issue with the reference version? I built this thing so long ago I do not remember the MS Calendar Control version I orignally used, but it was XP.
TIA
Al