Execution code to repeat a macro

[Hernan_g_f]

Hello friends,

I have a macro that I need to run between 10 - 25 times. Is there a command or code to repeat the macro automatically "n" times ?

Thanks in advance,
Hernán

 

[kevin9999]

Something like this maybe?

Sub Perhaps_This()
    Dim i As Long
    For i = 0 To 5  '<~~ inclusive of zero, the total number of times to repeat the code
        
        '~~ Your code to repeat goes here
    
    Next i
End Sub

 

[Joe4]

You could also keep the original macro code in a separate procedure (macro), and create a new one where you call the other one.

For example, if your original macro is called "Macro1", you could create a new macro like this that calls and runs it however many times you like:

Sub Macro2()
    Dim n as Long
    For i=1 to 25
        Call Macro1
    Next i
End Sub

The advantage to this is you do not have to change/update your original macro, which may be helpful if you also use it elsewhere, or sometimes want to run it once manually (without having to update your code every time).

Or, if you don't want to have to change the code at all (ever), and instead want to prompt the user for how many times to run the code at run-time, you could ask for a input at run-time like this:

Sub Macro2()

    Dim i As Long
    Dim n As Long
    
    On Error GoTo err_chk
    
    n = InputBox("How many times do you want to run the code?")
    If n > 0 Then
        For i = 1 To n
            Call Macro1
        Next i
    Else
        MsgBox "You have not entered a valid numeric value!", vbOKOnly, "TRY AGAIN!"
    End If
    
    Exit Sub
    
    
err_chk:
    MsgBox "You have not entered a valid numeric value!", vbOKOnly, "TRY AGAIN!"

End Sub