Try

Sub Auto_Open()
Worksheets("SHeet1").OLEObjects("Calendar1").Objec t.Value =
Now
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Patrick Simonds" wrote in message
...
How do you make a calendar control display the current date
when it is opened?