Повтор макроса

[Dr.Alex]

Добрый день. У меня есть полностью готовый макрос который мне подходит , подскажите пожалуйста как можно повторить его заданное количество раз.  Подозреваю что нужно вставить  кую-то команду вначале и в конце макроса , но к сожалению в этом я не силен.

[Рыбка Рио]

10 раз выполнить процедуру XYZ:

Код Выделить Развернуть

Sub XYZx10
For i=1 to 10
XYZ
Next
End Sub

[JohnSUN]

Браво, Клио! "Кратк. - сестр. тал."

Но я бы переписал чуть подробнее (чтобы наверняка):

Код Выделить Развернуть

Sub XYZx(Optional count As Long)
Dim I As Long
If IsMissing(count) Then count = 1 ' По умолчанию вызвать процедуру один раз
For i=1 to count
   Call XYZ
Next i
End Sub
Хотя от такого переписывания суть, конечно, не изменилась...

[smaharbA]

а вы уверены, что так можно повторить любой макрос ?

[dr.Faust]

2smaharbA
Нет - не любой.
Но если очень постараться, и допустить что перед  Call XYZ у  JohnSUN можно расположить некую процедуру CODEINJECT, которая будет писаться под конкретный макрос ручками, то - да - уверен - любой.