Lol.
I know, took me a few minutes to find my post too.
Silly me. Was a bit worked up trying to figure out my problem.
First time trying to do userforms, and all places i've looked for help dont
have specifically what i wanted. Also trying to find what your after when you
dont know how to put it into writting doesn't help too.

But a credit to this newsgroup/forum. You all seem to know what it is people
are after.

Cheers.
Tony B.


"Patch" wrote:

What? You're not going to chastise the poster for using
a "cute" subject line?


-----Original Message-----
As long as you are starting in B1

dim r as Range

set r = Range("B1")(userform1.Listbox1.ListIndex + 1,2)

to explain
Range("B1")(1,2)
gives you C1 and Range("B1")(1,1) is B1

Range("B1")(4,2)
is cell C4

since Listbox1.Listindex is zero based, we add 1 to it to
get the selected
item.

--
Regards,
Tom Ogilvy




"Tony Barla" wrote
in message
...
Hi All,

I'm using the below code to fill a listbox from items
in a range starting
from
cell B1. (Saw it the other day on these forums, from a
question by Al...)
-------------------------------------
Private Sub UserForm_Initialize()
Dim r, c As Range
With Sheets("Sheet1")
Set r = .Range(.Range("B1"), .Range("B" &
Rows.Count).End(xlUp))
For Each c In r
ListBox1.AddItem c
Next c
End With
End Sub
-------------------------------------
What i'm trying to do is depending on the item
selected, modify the cell
next to it
from a text box on the same form.

So if item "CMS-D1" is selected from the list, ("CMS-
D1" sits in cell B7),
i
need
to change cell C7 with what is is textbox1.

Im having problems getting the cell reference depending
on the item
selected.

Any help would be appreciated.

Cheer.
Tony B.



.