must be numbers in box

[olorin]

I have this code that with the help of a few in this forum works just fine.

Private Sub CommandButton1_Click()
If BoschProdRun.Value = "" Then
MsgBox ("YOU DIDN'T ENTER A NUMBER!!")
BOSCHstartFrm.BoschProdRun.SetFocus
Exit Sub
End If
Sheets("possible").Range("skilcircProdRun") = BoschProdRun.Value
BoschProdRun.Value = ""
SKILcircSawNeedz.Show
End Sub

In actual fact, "BoschProdRun" can be either a number or text and it still goes onto the next line after the "If.." routine.

How can I make the "BoschRunProd" text box accept whole numbers ONLY?

 

[Von Pookie]

Use the IsNumeric function.

Try:

If BoschProdRun.Value = "" Or IsNumeric(BoschProdRun.Value) = False Then

 

[olorin]

FanDabbyDozy !!!!
Thanx a million
The more I ask on here...the more I learn.
Thanx for your time