Input box cancel produces error

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