Hello all,
My name is Tim and i'm having some issues with using the pop-up calendar control form in VBA with Excel.
In the attached workbook i've just used the calendar control 11.0 to generate a pop-up calendar whenever a user clicks in cells a1:a100 on sheet12("January").
the issues i'm having involve the bit of code attributed to
private sub userform_initialize() in the userform
[vba]Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else:
Calendar1.Value = Date
End If
End Sub[/vba]
On the computer i made the userform on initially this code works fine so that when the user clicks on cells a1:a100, if the cell has a date entered the calendar starts on that state, but if the target cell does not have a date already entered, the calendar sets itself to Today's date.
But...i have another laptop i use to make sure that whatever i'm working on will work on more than one computer and this code doesn't work on it.
i can't for the life of me figure out why. any thoughts?
both computers have all available office and windows updates
both computers have the mscal.ocx file registered and calendar control 11.0 active
both computers have the same version of and release of VBA
both have excel 2003