Hi all,
Thank you so much, both suggestions work perfectly
Aceman,
Sorry, neglected to mention I have column headings, but minor tinkering did the trick.
Me! LstNames.Column(4, (Me! LstNames.ListIndex) + 1)
PHV,
Beautiful. As always you have a way for simplifying things that I spend hours...