如何用VBA插入的新的工作表并重名，建立指向相应工作表的超链接，建立返回指向相应工作表的超链接

Sub Macrol()
'朱巧平 记录的宏 2013-3-18
'插入新的工作表，并重命名
Sheets("会计科目设置").Activate
n = Range("C4").Value
ReDim nm(n) As String, num(n)
Fori = lTon
nm(i) = Cells(2 + i, 2)
num(i) = Cells(2 + i, 1)
Next i
Fori = lTon
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nm(i)
Next i
'为总账科目名称建立指向相应工作表的超链接
Sheets("会计科目设置").Activate
Fori = lTon
st = "b" & i + 2
Range(st).Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _
nm(i) & "!Al", TextToDisplay:=nm(i)
ActiveCell.Offset(1, 0).Activate
Next i
'为各个明细科目表建立返回总账科目的超链接
Fori = lTon
Sheets(nm(i)).Activate
Range("A1") = num(i) & " " & nm(i)
Range("A1:B1").Select
Selection.Merge
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("a2") = "编码"
Range("b2") = "科目名称"
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _
"会计科目设置!A1", TextToDisplay:=num(i) & " " & nm(i)
Columns("a:b").ColumnWidth = 30
Rows("1:1").RowHeight = 25
Next i
End Sub
请高手帮忙，这个公式哪里错了？？？/

是建立多个工作表

Sub Macrol()
'朱巧平 记录的宏 2013-3-18
'插入新的工作表，并重命名
    Sheets("会计科目设置").Activate
    n = Range("C4").Value
    ReDim nm(n) As String, num(n)
    For i = 1 To n
        nm(i) = Cells(2 + i, 2)
        num(i) = Cells(2 + i, 1)
    Next i
    For i = 1 To n
        Sheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = nm(i)
    Next i
    '为总账科目名称建立指向相应工作表的超链接
    Sheets("会计科目设置").Activate
    For i = 1 To n
        st = "b" & i + 2
        Range(st).Select
        ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _
                                                                               nm(i) & "!Al", TextToDisplay:=nm(i)
        ActiveCell.Offset(1, 0).Activate
    Next i
    '为各个明细科目表建立返回总账科目的超链接
    For i = 1 To n
        Sheets(nm(i)).Activate
        Range("A1") = num(i) & "   " & nm(i)
        Range("A1:B1").Select
        Selection.Merge
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        Range("a2") = "编码"
        Range("b2") = "科目名称"
        ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _
                                                                               "会计科目设置!A1", TextToDisplay:=num(i) & "   " & nm(i)
        Columns("a:b").ColumnWidth = 30
        Rows("1:1").RowHeight = 25
    Next i
End Sub

Fori = lTon '汗 for i=1 to n 再看看别人怎么说的。