求教，关于复制工作表出错的问题

lens2010

本人从事财务审计工作，出于需要弄了段简单的代码实现以下功能：
复制若干份询证函，表头和数据对应清单里的数据。
代码如下：
Sub Macro3()
'
' Macro3 Macro
' 宏由 think 录制，时间: 2011-3-14
'

'
    Dim i As Integer
    i=11       '从第11行起是询证单位名称
    do until i=48       '48行是最后一个单位
    Sheets("2").Copy After:=Sheets(2)    '复制询证函模版
    Range("A4").Select                   '选定单位名称单元格，对应金额由vlookup函数解决
    ActiveCell.Value = Sheets("函证清单").Cells(i, 2).Value   
    ActiveSheet.Name = Sheets("函证清单").Cells(i, 2).Value
    i=i+1
    loop
End Sub
以上代码第一次运行很顺利。但我试图使用其他语句如for next , do while ,go to 等替代，于是删除了已复制成功的工作表，再次运行，此时运行到一半中途出错.
说是复制无效。（具体的忘记截图了）
然后我发现手动复制工作表也没用了。
求教下是什么原因？

yygpd500

无附件，让人做瞎子摸象的事，太费劲了，不帮也罢。

lens2010

我是想再截图的。。。
但现在又不出错了。。。

xslxslxsl

呵呵，要不，附加发个上来看看。