Input Box Question with Code
 

Your Reply variable is an integer, and the max value
allowed for integers is 32767.

A Long variable type will let you go to 2,147,483,647 - so
change your Dim statement to this:

Dim Response as Long

-----Original Message-----
I am trying to write a macro with an inputbox that allows
a user to input a
number and then put that number in a given cell so that
it can be used in
calculations (outside the macro). the code I am using is
shown below. I
copied from a posted article on the microsoft site. the
problem is that when
i enter a number larger than 32600, i get a run-time '6'
error overflow. i
can't figure out why. i want to be able to enter numbers
between 1000000 and
10000000
Sub Using_InputBox_Method()
Dim Response As Integer
Sheets("Annual Profit and Loss").Select

' Run the Input Box.
Response = Application.InputBox("Enter a number.", _
"Number Entry", , 250, 75, , 1)

' Check to see if Cancel was pressed.
If Response < False Then

' If not, write the number to the first cell in the
first sheet.
Worksheets("Annual Profit and Loss").Range
("c6").Value = Response

MsgBox ("Update Complete.")

End If

End Sub
.