In the wrokbook open function you can put

Calendar1.Year = Year(Date)


"Mekinnik" wrote:

I do I get the calendar to start on what the current date is? Here is the
code I use currently.

Private Sub Calendar1_Click()
FrmProduct.TxtDate.Value = Calendar1.Value
Unload Me
FrmProduct.BtnAdd.SetFocus
End Sub