input box containing a list?
 

I have a macro that prompts the user to answer about 40 questions and input
the data into specific cells of my worksheet. This macro is assigned to a
graphic in the worksheet and runs at the user's command. What I would like
is for the macro to ask the first 10 questions, and then ask the user if they
want to continue. If they say yes, I want them to finish the last 30
questions and if they say no, I want to ask them to choose one of five
options (Opt1 thru Opt5, let's say) that correspondes to a cell in the
worksheet that is a list of those options.

Any ideas on the code I would have to use for that? Thanks!

PS - Right now, I'm using the simple macro below to prompt my user. Is
there a code for asking them all of the questions at once instead of one by
one?
myNum = Application.InputBox("What is your expected number?")
Range("A14").Value = myNum
myNum = Application.InputBox("What is your expected whatever?")
Range("A15").Value = myNum

input box containing a list?
 

You will have to make a userform.

http://spreadsheets.about.com/cs/exc.../vba1index.htm



Mangesh



"redb" wrote in message
...
I have a macro that prompts the user to answer about 40 questions and
input
the data into specific cells of my worksheet. This macro is assigned to a
graphic in the worksheet and runs at the user's command. What I would
like
is for the macro to ask the first 10 questions, and then ask the user if
they
want to continue. If they say yes, I want them to finish the last 30
questions and if they say no, I want to ask them to choose one of five
options (Opt1 thru Opt5, let's say) that correspondes to a cell in the
worksheet that is a list of those options.

Any ideas on the code I would have to use for that? Thanks!

PS - Right now, I'm using the simple macro below to prompt my user. Is
there a code for asking them all of the questions at once instead of one
by
one?
myNum = Application.InputBox("What is your expected number?")
Range("A14").Value = myNum
myNum = Application.InputBox("What is your expected whatever?")
Range("A15").Value = myNum