>>805
Dim str As String
str = List1.List(9)
List1.List(9) = List1.List(10)
List1.List(10) = str