I don't think you can prevent the user from clicking an earlier date, but
you can intercept the Click event and set the Value to the current date:

Private Sub Calendar1_Click()
If Me.Calendar1.Value < Int(Now) Then
Me.Calendar1.Value = Int(Now)
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

"jnf40" wrote in message
...
I am using the calendar1 popup. Is there a way to make the dates prior to
Todays date unselectable?