Calendar Initialize

[Patrick C. Simonds]

Is there any way in which this can be amended so that the date selected when
the calendar is displayed that the next Sunday is selected (unless the
current day is Sunday then I want the date to be the current date)



Private Sub UserForm_Initialize()

Calendar1 = Now()

End Sub

 

[Gary Keramidas]

maybe something like this:

If Weekday(Date, vbSunday) = 1 Then
Calendar1 = Date
Else
Calendar1= Date + 8 - Weekday(Date, vbSunday)
End If

 

[Rick Rothstein \(MVP - VB\)]

Try this...

Calendar1 = Now + (8 - Weekday(Now)) Mod 7

Rick