On Sep 28, 9:23 am, Joel wrote:
You are not using i in yhour code

from:
For i = 0 To .ListCount - 1
If .Selected(i) Then
iIndex = .ListIndex
to:
For i = 0 To .ListCount - 1
If .Selected(i) Then
iIndex = i

Dude, that's perfect!

I knew it had to be something small. I think I was just looking at the
code too long... :-)

Thanks for your help.