Hi,
Try this one that inputbox will appear if empty
Sub InputBoxMust()
Dim Datax
InputX:
Datax = InputBox("Must entry:", "You have to fill the data")
If Datax = "" Then
GoTo InputX 'back to call inputbox
Else
MsgBox Datax 'the inputbox data
End If
End Sub

--

Regards,

Halim


"Papa Jonah" wrote:

I have an input box that receives input and enters it into a cell.
How can I set this up so that simply hitting the OK button without entering
text is not allowed?

TIA