As a astarter
Sub Macro1()
Dim ans
Dim i As Long
Dim sName As String
ans = InputBox("How many groups have you made")
If ans <> "" Then
ActiveCell.Offset(1, 0).Resize(3).Insert
For i = 1 To ans
sName = InputBox("What is the name of group #" & i)
ActiveCell.Offset(i, 0).Value = sName
Next i
End If
End Sub
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Deepak Varde" <Deepak
(E-Mail Removed)> wrote in message
news:32E01D6E-DD9A-4662-9982-(E-Mail Removed)...
> Hello, I want to be able to have rows/cells generated with a certain text
> based on the answer given by a user.
> For example, My question in a cell could be "how many groups have you
made?".
> Now to this if the user answers "3" then I would want three cells below to
> ask "what is the name of your first group", "what is the name of your
second
> group" and so on. Based on this further questions could be asked.