i think your error might be in the fact that i becomes too big. use the list count but subtract one as in below.


For i = 0 To ListBox.ListCount - 1
rename FileList.list(i).FileName ListBox.List(i)
Next i