现在需要对一系列表进行重命名：sheet1-sheet80，分别用DATAsheet的B1-B80重命名
i = 1
Do Until i = 81
    Dim sname As String
    sname = Sheets("Datasheet").Range("B" & i ).Value
    Sheets("sheet" & i).Select
*   Sheets("sheet" & i).Name = sname
    i=i+1
Loop
*那一行会出现1004错误，应用程序定义或对象定义错误
应该如何修改？谢谢！