Inputbox - formatted as Date, unable to exit sub on Cancel

[Lewis Smeby]

Hello,

I am running a macro that asks a user to input a date to parse some data from a file folder. The issue I'm having is keeping an error from popping up (Run-time error '13': Type mismatch) when the user selects "Cancel" or "X"s out of the inputbox. Here is the pertinent code.

Please Login or Register  to view this content.

I have also tried the following codes to prevent the error.

Please Login or Register  to view this content.

[AlphaFrog]

Try something like this...

Please Login or Register  to view this content.

[Leith Ross]

Hello Lewis,

You declared eDate as a Date Type. The Cancel button returns a Boolean type. To fix the problem, change eDate to a Variant Type.

Please Login or Register  to view this content.

[Lewis Smeby]

Thank you both for your quick responses.

I found a solution and was going to delete this thread, but since there are solutions posted, hopefully this will help another.

Here is the solution that I found so that I could ultimately check the date against another date in a different format later on in the VBA programming.

Please Login or Register  to view this content.

[Leith Ross]

Hello Lewis,

FYI, using a Variant instead of string, eliminates the need to convert the string to a date. The Variant type does this for you.

[AlphaFrog]

FYI, using a Variant instead of string, eliminates the need to convert the string to a date. The Variant type does this for you.

I would respectfully disagree. The Variant from the Input box is still a string and couldn't be compared directly to a serial date without converting it to a serial date.