excel 录制的宏如何循环100次? 我录制了一个宏：工作簿有sheet1,sheet2， 2个工作表。

录制了一个宏，来实现：建立sheet2 的副本，副本以sheet1的第一列命名。并且副本中的“H8”单元格的值与sheet1第一列的相同。 录制的宏只执行一次，如何添加循环，来让宏能执行10次，100次？
==========
Sub Macro4()
'
' Macro4 Macro
'

'
Sheets("sheet2").Copy After:=Sheets(2)
Sheets("Sheet1").Select
Range("A2").Select
Selection.Copy
Sheets("sheet2 (2)").Select
Sheets("sheet2 (2)").Name = "A"
Range("C23").Select
Sheets("Sheet1").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A").Select
Range("H8").Select
ActiveSheet.Paste
Range("H15").Select

End Sub

---

sub 复制工宏伍祥作表()
n=sheets(1).cells(65536,1).end(3).row
for i=2 to n
shtname=sheets(1).cells(i,1)
sheets(2).copy after:=sheets(sheets.count)
with activesheet
.name=shtname
.range("H8"蔽搏橘昌)=shtname
end with
next
end sub

---

应该这样才好运帆裂敬行。
Sub 命态慎名新工作表()
Dim n As Long
Dim i As Integer
Dim shtname As String

n = Sheets(1).Cells(65536, 1).End(3).Row
For i = 2 To n
shtname = Sheets(1).Cells(i, 1)

Sheets(2).Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = shtname
.Range("源陵a1") = Sheets(1).Range("h8")

End With
Next
End Sub

---