Validating a cell contains an integer

Originally Posted by cultofcargo

I have written some code to validate that a user input field contains a whole number;

Perhaps, OP wants to do like

Dim msg As String
If IsNumeric(Range("Quantity1")) Then
    If Range("Quantity1") Mod 1 <> 0 Then
         msg ="Quantity must be a whole number, to rectify this please enter a whole number in the quantity field.", vbCritical, "Operator Response Required"
    End if
Else
    msg = "Only Numbers allowed"
End if
If Len(msg) then
    msgbox msg
    Range("Quantity1").ClearContents
    Range("Quantity1").Select
End if

Originally Posted by skywriter

Is "Quantity1" a cell on a spreadsheet?
VarType is supposed to be used with a variable.
You would have to create a variable, let's say x.
x = Range("Quantity1").Value
If VarType(x)......

Yes Quantity1 is a cell

x = Range("Quantity1").Value
If VarType(x) = vbInteger Then
Else
MsgBox "Quantity must be a whole number, to rectify this please enter a whole number in the quantity field.", vbCritical, "Operator Response Required"
Range("Quantity1").ClearContents
Range("Quantity1").Select
Exit Sub
End If


With this written i am still getting the error message no matter what is in the cell.

And storing x (quantity1) using Dim will return messages based on what i store it as in the Dim statement (string, boolean, integer)