Move方法

tinachen0505

各位大侠，

可否请大家帮我看一下以下的错误代码Move 的用法，我想把工作表移动到对应的工作表位置上。万分感谢！

Sub SortSheets()
Dim SheetNames() As String
Dim SheetCount As Long
Dim i As Long
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
For i = 1 To SheetCount
SheetNames(i) = ActiveWorkbook.Sheets(i).Name
Next i
Call BubbleSort(SheetNames)
For i = 1 To SheetCount
    ActiveWorkbook.Sheets (SheetNames(i)) .Move Before := ActiveWorkbook.Sheets(i)  提示语法错误
Next i
End Sub

Sub BubbleSort(list() As String) '冒泡排序，如果数组元素的值大于下一个元素的值，那么这两个元素就交换位置。
Dim First As Long, Last As Long
Dim i As Long, j As Long
Dim Temp As String
First = LBound(list)
Last = UBound(list)
For i = First To Last - 1
For j = i + 1 To Last
If list(i) > list(j) Then
Temp = list(i)
list(i) = list(j)
list(i) = Temp
End If
Next j
Next i
End Sub