Thanks for any helps
Emil

Sub Macro1()

Dim i as Long

For i = 1 to 10
Macro2
Next

End Sub


Sub Macro2()

'run any code here

End Sub


RBS

"emil" wrote in message
...
Thanks for any helps
Emil

You might want to think about posting a more detailed question.


Sub Tester()
dim i as integer
application.displayalerts=false

for i=1 to 20
Macro1
next i

application.displayalerts=true

end sub

Sub Macro1()
'do stuff
End sub


--
Tim Williams
Palo Alto, CA


"emil" wrote in message ...
Thanks for any helps
Emil

Emil -

Without knowing more - here is a way:


Sub MyLoop
For c = 1 to 50
Call <insert your procedure name here
Next c
End Sub


This will run your code 50 times. Change the 50 above to 100 and it will
loop thru your code 100 times.

--
Thx
MSweetG222



"emil" wrote:

Thanks for any helps
Emil

Thank you very much for help.
It work
Emil

"emil" a scris:

Thanks for any helps
Emil

Milion thanks.
It work too
Emil

"RB Smissaert" a scris:

Sub Macro1()

Dim i as Long

For i = 1 to 10
Macro2
Next

End Sub


Sub Macro2()

'run any code here

End Sub


RBS

"emil" wrote in message
...
Thanks for any helps
Emil