How to avoid "Cancel" with Application.InputBox

What about

Please Login or Register  to view this content.

This will keep prompting unless the user enters something.

Please Login or Register  to view this content.

PS Wouldn't it be better to allow the user to use the Cancel button and if the do close the workbook or something?

I have zero sympathy for this type of user behaviour (it's deliberate naughtiness)
- a short sharp shock is my prescription

If the user misbehaves, code simply closes the workbook without warning
- the user will never do it again

Please Login or Register  to view this content.

I would not bother with the message box....
Does user need/want to be thanked for entering their initials?
Does the user really want to click on a message box?
IMHO - it is not adding a lot of value

PCI,

That works for detecting "Cancel", but now I get a Type mismatch error if I select "OK" without entering a string. Before the change selecting "OK" without entering a string would prompt the user to enter a valid sting. I should mention that I have EnterInitials as Public Enterinitials As String defined in a module and not in the ThisWorkbook section.

Thank you

See test file attached: There is no issue

try
Public Enterinitials As Variant
- it needs to cope with string and boolean

@kev_
" it needs to cope with string and boolean"

Enterinitials is already variant as there is no Dim Statement !!! No ??

@erice
is the file sent make the same error ??

Thank you for details