It won't work if the user doesn't enable macros when prompted

put it in ThisWorkbook module, it will put whatever you put in that input
box in sheet1 cell A1




Option Explicit

Private Sub Workbook_Open()

Dim vDate As String

vDate = InputBox("Please type in a date")

Worksheets("Sheet1").Range("A1") = vDate

End Sub


--

Regards,

Peo Sjoblom

http://nwexcelsolutions.com


"sdmccabe" wrote in message
...
Is it possible to prompt a user for an input (date) when a spreadsheet is
opened, and save that value in a cell?