Look what I did, but the code fails.

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