try this:

ChangeLevel = InputBox(Question3, Title3, Default3 , , , , 1)
the comma's denote the location of the box left, right, help, help context,
type
type 1 is numeric input only and it will automatically display an error
window.


"Alex" wrote:

I have the following code that inputs a value into a cell that is typed in an
input box. How can I force the number that is typed in the input box to be
an integer? Thanks.

Sub Input_Fields()

Dim Question3, Title3, Default3, Box3
Dim ChangeLevel As Integer
Question3 = "What is the Change Level?"
Title3 = "Change Level"
Default3 = ""
ChangeLevel = InputBox(Question3, Title3, Default3)


Range("e5").Select
ActiveCell.FormulaR1C1 = ChangeLevel


End Sub