Dim j as long, i as Long, k as Long

j = 0
for k = 1 to 4 Step 2
for i = 1 to clng(Userform1.controls("Textbox" & k).Text)
j = j + 1
activecell.offset(j-1,1).Value = j
activeCell.offset(j-1,2).Value = _
Userform1.controls("TextBox" & k + 1).Text
Next i
Next k

ActiveCell.offset(j,0).Select


--
Regards,
Tom Ogilvy


"JK" wrote in message news:o3U3f.3674$2Y2.3307@trnddc05...
I would like to use a UserForm that allows the user to enter (for example)
1
wiget, 2 gadgets then have my procedure list that information in a range
like so:

NO ITEM
1 widget
2 gadget
3 gadget

I know this involves an array and am able to do the sequential numbering,
but have no idea how to include the correct count for the widgets and
gadgets. I would appreciate a lending hand. Thank you in advance.

Jim Kobzeff