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

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

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