繰り返し

sub 繰り返し()

dim 数as nteger
for 数＝1to 3

worksheets.add before:worksheets(数)
activesheets.name=”追加”　&数

next 数
end sub