見づらいので使ったことはないが、こんなネストが出来てしまうらしい・・・
Sub test()
Sub test()
Dim i As Long, j As Long
For i = 1 To 10
For j = 1 To 5
MsgBox i & Space(10) & j
Next j, i
End Sub
End Sub
Sub test2()
Dim i As Long, c As Worksheet
For i = 1 To 10
For Each c In ActiveWorkbook.Worksheets
MsgBox i & Space(10) & c.Name
Next c, i
End Sub
Microsoft Office ブログランキングへ