set datepicker value to current date on workbook open

I can't seem to find an initialize event if the date picker is on the worksheet. There may be a work-around. Click the 'Developer' tab and then in the 'Controls' group click 'Design Mode'. Right click the date picker and click 'View Code'. Paste this macro into the window:

Private Sub DTPicker21_GotFocus()
    DTPicker21.Value = Date
End Sub

Return to your sheet and click 'Design Mode' to turn it off. When you click on the date picker, it will automatically display today's date. I'm not sure if this works for you. There may be a better solution.

Here is another approach. Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet.

Private Sub Worksheet_Activate()
    DTPicker21.Value = Date
End Sub

The date will default to today every time you select the worksheet.

Another approach still that meets your original request:

Private Sub Workbook_Open()
    Sheets("Sheet1").DTPicker21.Value = Date
End Sub

Put it in the workbook_open. Change "Sheet1" to suit your needs. Save and close the file. Open the file.