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?