The cancel button is returning a value of False
Change hte IF statement to
IF UInput= False then Exit Sub

That should work

Andres

-----Original Message-----
Hi All,

I am rather confused as to why the following macro does
not work properly. The
problem is when the user presses the cancel button
without entering anything in
the Inputbox it starts looping! However, if the user
presses OK without
entering anything in the Inputbox then it exits! Can you
see why. Thanks for
your help.

Dim UInput as string
Dim Msg as string
Msg = "Enter todays date"

Do
UInput = Application.inputbox(Msg)
If UInput = "" then Exit Sub
If Isdate(UInput) then
Msgbox "Thank You"
Exit Do
End if
Msg = "You did not enter a date"
Msg = Msg & vbNewLine
Msg = Msg & "Enter todays date"
Loop

Regards
UJ
.