With Me.ListBox1
If .ListIndex < -1 Then
Worksheets("Sheet1").Range("A4:A13")(.ListIndex, 1).Value = _
.Value & Me.TextBox1.Text
End If
End With


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"nospaminlich" wrote in message
...
This is my first attempt at a Dialog Box and I'm a bit stuck.

I've created a User Form which comprises a List box containing a list of
names and a Text Box to which the User adds text then if they press OK I
want
the value selected in the List Box to be "looked up" against a list in
cells
A4:A13 and the text from the text box to be appended alongside that name
in
Col B.

Having designed the form I want it to run when a button is pressed on the
sheet but I'm not sure what instructions to add to the button macro to
make
the dialog box appear and then do what I've described above.

I hope this is clear and I'd be grateful for any help. Thanks in
anticipation.