vba宏，实现根据一列的值自动生成同名工作表

给公司做EXCEL的报价，主要是在首张汇总表中填写 图号，并建立新的工作表链接，文件太多了，就写了一个宏自动实现这个功能。

-------------------------------------------------------------------------2010-7-15   白波九道

Sub Name() ' ' name Macro ' 宏由 白波九道 录制，时间: 2010-7-16 ' Dim i As Integer Dim j As Integer Dim Name As String   '将图号名字赋于第一个工作表，并建立链接，将材料价格填写到图号后 'row = Worksheets("汇总表").UsedRange.Rows.Count 'For i = 2 To row i = 4 j = 2 Worksheets("汇总表").Activate Do While Not IsEmpty(Sheets("汇总表").["b"&i])     Worksheets("汇总表").Activate     Name = Range("b" & i).Value     If Name = "" Then         Exit Do     Else         If IsEmpty(Sheets("汇总表").["b"&i]) Then             Exit Do         Else             Sheets(j).Name = Name             ActiveSheet.Hyperlinks.Add anchor:=Range("b" & i), Address:="", SubAddress:="'" & Name & "'" & "!" & "A9"             Worksheets(2).Copy after:=Worksheets(Worksheets.Count)             i = i + 1             j = j + 1         End If     End If      Loop 'Next i ' End Sub