Try something like in the ThisWorkbook code module:

Sub Workbook_Open()
Worksheets("Sheet1").Textbox18.Value =
Format(Now,"mm/dd/yyyy")
End Sub


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




"bg18461 " wrote in
message ...
I am trying to have a textbox just show todays date. The only
problem i
am having is having this done outside a procedure. I dont want
the
user to have to push a button or select a box, I simply want
whenever
the user opens the workbook, this particular cell to just show
todays
date. I tried to enter the formula: TextBox18 = Format(Date,
"MM/DD/YYYY") in the general portion of of vba sheet
(declarations) but
i get outside procedure compile error, any hints...


---
Message posted from http://www.ExcelForum.com/