Sorry, but I am still not sure what you are asking or what you want to do.

I don't know what a pullbox is.

If you want a button that will have Colors as the caption and this would
write the possible colors from Row1 in the Range B5:B8

Private Sub CommandButton1_Click()
Range("A1:D1").Copy
Range("B5").PasteSpecial xlAll, Transpose:=True
End Sub

It is not clear why E1 (cyan) is left out.

This would assume you might have a second button with the caption Weights
that would copy a range to B5.

--
Regards,
Tom Ogilvy



"maperalia" wrote in message
...
Tom;
I do apologize to be unclear in my question and also for confuse you.
Besides, I want to thanks you for taking your time in achieve my request.
I
really appreciate your supporting me in this matter.

Let me explain you what I need. Basically, I want to type the following
information:
Colors in cell A1
Red in cell B1
Yellow in cell C1
Blue in cell D1, and
Cyan in cell E1

Then create a pull box that will ready "Colors" only. After I click colors
I
would like to see the following information written:
Red in cell B5
Yellow in cell B6
Blue in cell B7
Cyan in cell B8

After the program is done I will add twenty more options where each option
will have their own list.

Two years ago I have just two options (colors and weights), so at that
time
I had two buttons with their own macros to call for each list. However, I
been adding more options, so far I have ten buttons with their own macros
to
call for ten different lists. It is getting very busy in my sheet, so
imagine
with twenty buttons with different options.

I hope I am not confusing with my request.

Thanks in advance.
Maperalia


"Tom Ogilvy" wrote:

It was pretty much a guess at what you want to do since you were not
very
clear in your question - at least not for me.

Sub AA()
v = Range("B5:B8")
for i = 1 to ubound(v,1)
msgbox i & ": " & v(i,1)
Next
End Sub

So I don't know if that will do much for you. It was more illustrative
than
furnished as the solution.

--
Regards,
Tom Ogilvy

"maperalia" wrote in message
...
Tom;
Thanks for your quick respond.
of the program just gave me.
Could you please help me with the additional information in the code
to
make
it run.

"Tom Ogilvy" wrote:

v = Range("B5:B8")
for i = 1 to ubound(v,1)
msgbox i & ": " & v(i,1)
Next

--
Regards,
Tom Ogilvy


"maperalia" wrote in message
...
How can I adjuste the "ListFillRange" and the "LinkedCell" in box
properties
to get a list of names instead of just one name.

For example when I click color I want to see the whole list of
colors
in
one
time such as:
red (typed in cell B5)
yellow (typed in cell B6)
blue (typed in cell B7)
cyan (typed in cell B8)
Unfortunately, the box property allow me to click in color and
show me
just
one color

I will appreciate your helping me..

Thanks in advance.
Maperalia

P.D.
How can I send you my file for easy understanding?