Try


Private Sub DTPicker1_Change()
Sheet1.Range("A1").Value = Me.DTPicker1.Value
End Sub