Try

Worksheets("DataSource").Range("Manager").Offset(lstData.ListIndex,
0).Activate

While you are in the editor click Debug/CompileVBA Project. If this throws
errors you need to correct them. Then try to run it and let me know what
happens. Don't say "It Fails". I need to know what error message there is or
if nothing at all happens. When you look at the spreadsheet what cell  is
active?