Create VBA InputBox

mooshuchyken · Jun 3rd 2009

Hi all,

I am trying to create an inputbox using code from this site:

Code

Sub NumericDataType()


Dim lNum As Long






    On Error Resume Next


        Application.DisplayAlerts = False


            lNum = Application.InputBox _


             (Prompt:="Please enter you age.", _


                    Title:="HOW OLD ARE YOU", Type:=1)


    On Error GoTo 0


    Application.DisplayAlerts = True






        If lNum = 0 Then


            Exit Sub


        Else


            MsgBox "You are " & lNum & " years old."


        End If


        


End Sub

Display More

I get an error on the first line that says, "Compile error: argument not optional". Can anyone help me with this?

Thank you

Tony T · Jun 3rd 2009

Re: Create Inputbox

Is this code running inside of Microsoft Excel? If so, which version?

rbrhodes · Jun 4th 2009

Re: Create Inputbox

Hi,

By first line you mean this one?

[vba]
lNum = Application.InputBox _

(Prompt:="Please enter you age.", _

Title:="HOW OLD ARE YOU", Type:=1)

[/vba]

Try taking out the line breaks " _" and then put them back in:

[vba]
lNum = Application.InputBox(Prompt:="Please enter your age.",Title:="HOW OLD ARE YOU", Type:=1)

[/vba]

Then:

[vba]

lNum = Application.InputBox _
(Prompt:="Please enter your age.", _
Title:="HOW OLD ARE YOU", Type:=1)

[/vba]

Note you need to type <space> _ <Enter> for it to work.

Tony T · Jun 4th 2009

Re: Create VBA InputBox

Remove the extra line breaks.

This:

Code

lNum = Application.InputBox _ 
 
(Prompt:="Please enter you age.", _ 
 
Title:="HOW OLD ARE YOU", Type:=1)

Should look like this:

Code

lNum = Application.InputBox _ 
(Prompt:="Please enter you age.", _ 
Title:="HOW OLD ARE YOU", Type:=1)

EDIT: Sorry, didn't read your reply... Just read what he said.

gollem · Jun 11th 2009

Re: Create VBA InputBox

FYI some alternative code:

Code

lnum = InputBox("Please enter you age.", "HOW OLD ARE YOU")

Create VBA InputBox

Participate now!

Share