William,

that is very helpful!

I would like to go a step further though and obtain the
date that was selected prior to the update

i.e. - if the date with focus is July 7 04 then upon
trying an "Aug' date, the focus is returned to Jul 07
again.

have tried to capture the value with beforeUpdate but
at runtime the procedure does not seem to get cycled using
the example below

thanks for your help again



-----Original Message-----
Does this help?

Private Sub Calendar1_Click()
If Month(Calendar1.Value) < 7 Or Year(Calendar1.Value)
< 2004 Then
MsgBox "The date selected has to fall within July 2004.
Please try again."
Calendar1.Value = DateSerial(2004, 7, 1)
End If
End Sub

Private Sub UserForm_Initialize()
Calendar1.Value = DateSerial(2004, 7, 1)
End Sub


--
XL2002
Regards

William



wrote in message
...
| thanks Will
|
| i would like to prevent user from being able to go
beyond
| say Jul 31 04; for example when the user selects Aug 08
04,
| the calendar should reset to its' previous date and thus
| the new date is not highlighted
|
| have tried to make it work as follows -
|
| Sub calendar1_beforeupdate(ByVal Cancel As
| MSForms.ReturnBoolean)
|
| If calender1.Value #7/31/2004# Then
| Cancel = True
| End If
|
| End Sub
|
|
|
|
| -----Original Message-----
| Hi Brent
|
| 'Test calendar date falls within 2004
|
| Private Sub CommandButton1_Click()
| Dim calendardate As Date
| Dim earliestdate As Date
| Dim latestdate As Date
|
| earliestdate = DateSerial(2004, 1, 1)
| latestdate = DateSerial(2004, 12, 31)
| calendardate = Calendar1.Value
|
| If calendardate < earliestdate Or calendardate
| latestdate Then
| MsgBox "The date selected of " & Format
(calendardate, "dd
| mmm yyyy") & _
| " does not fall between " & Format(earliestdate, "dd
mmm
| yyyy") & _
| " and " & Format(latestdate, "dd mmm yyyy") & ". Please
| try again."
| Exit Sub
| End If
|
| MsgBox "Do your stuff here"
| End Sub
|
|
| --
| XL2002
| Regards
|
| William
|
|
|
| "brent" wrote in
| message
| ...
| | how do I limit the dates that a calendar allows the
user
| | to select? the calender is placed on a form
| |
| | have tried using the 'beforeUpdate' event and can't
get
| it
| | to work
| |
| | using the MS Calendar Control 10.0
| |
| | any ideas appreciated
|
|
| .
|


.