Inserting text or value from ListBox

[Borg]

Hi,

I used the following VBA code to include values/text (from column B)
from another sheet (Cost Centers) into a list box:

**********************************
Private Sub UserForm_Initialize()

Dim r As Long
ListBox1.RowSource = ""
For r = 1 To 113
ListBox1.AddItem Sheets("Cost Centers").Range("B" & r).Value
Next r
End Sub

***********************************


How would I write code to include the corresponding text or value I
selected from the list box, in an active cell?

 

[Die_Another_Day]

ActiveCell = ListBox1.Value

Charles Chickering
xl Geek