I was pasting into module1. I pasted into ThisWorkbook (as you had already
stated)and it works great! Thanks for your help.

"Tom Hutchins" wrote:

The following event code displays an inputbox with a prompt when the workbook
is opened, and won't go away (unless you stop the macro by pressing
Ctrl-Break) until a valid date is entered. The date is then entered in a cell
on the hidden sheet (in this example, cell D10 on Sheet3). The current date
is supplied as a default.

Option Explicit

Private Sub Workbook_Open()
Dim NewDate
Do While Not IsDate(NewDate)
NewDate = InputBox("Please enter a date", "Input required", _
Format(Now(), "mm/dd/yyyy"))
Loop
Sheets("Sheet3").Range("D10").Value = NewDate
End Sub

Paste this code in the ThisWorkbook module of the workbook. If you are new
to macros, this link to Jon Peltier's site may be helpful:
http://peltiertech.com/WordPress/200...e-elses-macro/

Hope this helps,

Hutch

"SixBowls" wrote:

I have a spreadsheet that requires the user to enter a date on a hidden tab.
The date is used for calculations throughout the spreadsheet.

On opening the sheet, I would like to have some sort of reminder/prompt to
update the date and if possible do the entry without unhiding the sheet.