Randomly run one out of three macros

[kelly mort]

Hello ,
I am looking at three separate macros right now.

Say :

macro1 
macro2 
macro3 .

Below is the button to call

Private Sub CommandButton1_Click 

       'Inside here I want to choose one of those macros at random
 
End Sub

How will I run just one of those three at random?

 

[Eric W]

If all the macros are in the same module, and you don't have any parameters to pass, you can do something like this:

Sub test1()


    Application.Run Mid("Macro1  Macro2   Macro3   ", Int(Rnd() * 3) * 8 + 1, 8)
    
End Sub

List your macro names in the string, and each of them must take up the same length in the string, 8 characters in this example. You can add the Randomize line in front if desired.

 

[Fluff]

I was trying to do it with choose, but using Call instead of Application.Run

Application.Run Choose(Int((3 - 1 + 1) * Rnd() + 1), "macro1", "macro2", "macro3")

 

[kelly mort]

Great! !!

The later codes are very interesting.

Clean cut.

I am really learning a lot

 

[Eric W]

I was trying to do it with choose, but using Call instead of Application.Run

Application.Run Choose(Int(([COLOR=#ff0000]3 - 1 + 1[/COLOR]) * Rnd() + 1), "macro1", "macro2", "macro3")

Any particular reason you don't just use 3?

 

[Fluff]

Not really, I usually have variables in there & just swapped them out for hard values.

 

[kelly mort]

Any particular reason you don't just use 3?

That got me thinking for a while. Now I can see it clearly.