but to tell you the truth i didn't quite understand. David
sent me a line of code which would help, but I don't know why it fails. Maybe
you can help. The bold line should active the row in the worksheet with the item
selected in the listbox. I don't know why it generates error.

Private Sub cmdEdit_Click()
Manager.Offset(lstData.ListIndex, 0).Activate
End Sub

Private Sub UserForm_Initialize()
Dim lRow As Range
Dim ws As Worksheet
Set ws = Worksheets("DataSource")
For Each lRow In ws.Range("Manager")
With Me.lstData
.AddItem lRow.Value
.List(.ListCount - 1, 1) = lRow.Offset(0, 1).Value
End With
Next lRow
End Sub