Tom does that later with activecell.value.

Are you sure that there is a single cell named BalanceDate?



pkeegs wrote:

Thanks Tom
I copied your code into a test macro but when I ran it, it stopped at
"s=InputBox...." Should there be a reference to the cell where value is
being inserted?

"Tom Ogilvy" wrote:

Dim s as String
s = InputBox("Enter the end date of the period.", _
strTitle, Range("BalanceDate").Value)
if s < "" then
if isdate(s) then
ActiveCell.Value = cdate(s)
else
Msgbox "Bad data"
end if
end if

--
Regards,
Tom Ogilvy

"pkeegs" wrote in message
...
I have the following to insert a date into the active cell. It works all
right to enter the default or a new date with OK, but when Cancel is
clicked
it only produces an error. What do I need to exit the sub.

ActiveCell.Value = CDate(InputBox("Enter the end date of the period.", _
strTitle, Range("BalanceDate").Value))

Regards




--

Dave Peterson