Hello Leith,

And once again it is Leith to the rescue!

Thank you.

I have taken out the xlValidateCustom etc. since it does not work, and I am sending you what I have got in terms of the InputBox.

If Sheet1.Range("M13") = "" Then
Application.DisplayAlerts = True
Range("M13").Validation.IgnoreBlank = True
Dim Message, Title, Default, MyValue
Message = "                                     Please enter your name"
Title = "                                              Welcome"
Default = ""
MyValue = InputBox(Message, Title, Default)
Range("M13").Value = MyValue
End If
If Range("M13") <> "" And Range("H17") = 0 Then
Message = "                                     Please enter any number"
Title = "                                              Next step"
Default = "0"
MyValue = InputBox(Message, Title, Default, 1850, 1875)
Range("H17").Value = MyValue
End If
Regards

Tjaart