以sheet1A列各单元格的值命名批量创建工作表

旭辉

各位老师：以sheet1A列各单元格的值命名批量创建工作表，因为excel不允许在同一工作簿中出现同名工作表，所以我在过程中放置了代码用来避免重复。实际执行代码时，如果遇到sheet1A列各单元格有重复数字（即使设置为文本）时就不执行略过代码而导致错误，而遇到非数字重复值则执行了略过代码，创建了相应的工作表从而实现了目的。为什么？请赐教。谢谢。代码如下：
Sub ShtAdd()
    Dim i As Integer, she As Worksheet
    i = 1
    Do
        For Each sht In Worksheets
            If sht.Name = Worksheets(1).Cells(i, "A").Value Then GoTo X
        Next sht
        Worksheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Worksheets(1).Cells(i, "A").Value
X:         i = i + 1
    Loop While Worksheets(1).Cells(i, "A").Value <> ""
End Sub

旭辉

谢谢各位老师