Thanks for your help Guys n Dolls...

Next...

If I created my own UserForm to make it look like I wanted, would I still be
able to use this VB Code? How would I then enter Open and Close boxes?

Secondly on the VB below, how would you write it so that only a certain
amount of characters can be typed in the answer e.g I want a 32 character
length cell size

Thx

Paul

"Gary''s Student" wrote:

Good catch!

The universe keeps telling me to use Option Explicit; some day I will learn
to listen.
--
Gary''s Student - gsnu200829


"Susan" wrote:

TYPO ALERT

For i = 0 To 2

that's a zero, not a letter o.

:)
susan


On Jan 27, 10:15 am, Gary''s Student
wrote:
How about:

Sub AskMeNoQuestions()
Dim s(3)
s(0) = "What is the meaning of life?"
s(1) = "How many neutrinos are there in the universe?"
s(2) = "Why are the key pads on phones and computer keyboards different?"
For i = o To 2
x = Application.InputBox(prompt:=s(i), Type:=2)
j = i + 1
Cells(j, 1).Value = s(i)
Cells(j, 2).Value = x
Next
End Sub