really stuck with auto updating a textbox on opening a workbook

[markus_87]

Hi guys,


I'm really stuck with this one
I have a dtpicker with the code below that sets it to display the current date without the user having to choose anything, this date is then displayed in a textbox just to verify the correct date. I can get the textbox to change and update correctly when they pick a new date but when opening the workbook the old date is displayed and the new date is hidden underneath. Does anyone know a quick fix for this?

Private Sub WorkBook_Open()

Dim objOLE As Object
For Each objOLE In Sheets("Theatres Checklist").OLEObjects
If TypeName(objOLE.Object) = "DTPicker" Then
objOLE.Object.Value = Date
End If
Next objOLE

End Sub

Thanks