getting type mismatch error when cancel button is clicked on inputbox

[GregJG]

when i click the cancel button of my inputbox i get error "13" type mismatch.

I have tried correcting by using the code below with many variations but can't get it to stop. anyone know how?

    Dim Ending As Date
    Ending = InputBox("enter date", Title:="INPUT - Date")
    If CDate(Ending) = False Then
        MsgBox "You pressed cancel!"
    End If

 

[mikerickson]

Ending is a date, InputBox returns a string. That is the mismatch.

Dim UserInput as String
Dim Ending As Date

UserInput = InputBox("enter date", Title:="INPUT - Date")
If StrPtr(UserInput) = 0 Then
   MsgBox "Cancel Pressed"
   Exit Sub
End If

If IsDate(UserInput) then
   Ending = CDate(UserInput)
Else
   MsgBox "Bad data entry"
   Exit Sub
End If

 

[GregJG]

ahh, I see what you mean mike. another note I need to add to my list of many

Thanks !!!

 

[Richard Schollar]

You could, alternatively, use the Inputbox method as opposed to the function version. The following will work successfully:

 Dim Ending As Date
    Ending = Application.InputBox("enter date", Title:="INPUT - Date", Type:=2)
    If CDate(Ending) = False Then
        MsgBox "You pressed cancel!"
    End If