I'm trying to input my data using an InputBox, and also use the data
validations in the cells. I'm trying to follow the following instructions
from the Help File:

================================================== =
The InputBox method differs from the InputBox function in that it allows
selective validation of the user's input, and it can be used with Microsoft
Excel objects, error values, and formulas. Note that Application.InputBox
calls the InputBox method; InputBox with no object qualifier calls the
InputBox function.

This example prompts the user to select a cell on Sheet1. The example uses
the Type argument to ensure that the return value is a valid cell reference
(a Range object).

Worksheets("Sheet1").Activate
Set myCell = Application.InputBox(prompt:="Select a cell", Type:=8)
================================================== ==

My code:

' Get the Birthday
'
myCell = ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
On Error GoTo CleanUp
Set myCell = Application.InputBox(Prompt:="Enter The Birthday
MM/DD/YYYY", Type:=8)

================================================== ==

I have tried numerous variations, and all have failed. Any assistance would
be greatly appreciated.

TomD