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?

 

[Fluff]

How about

Sub KellyMort()
   Select Case Int((3 - 1 + 1) * Rnd() + 1)
      Case 1
         Call macro1
      Case 2
         Call macro2
      Case 3
         Call macro3
    End Select
End Sub

 

[Scott T]

If you want a truly random then you should add at the start of the code Fluff posted.
This will change the seed value used by Rnd so it will be truly random

Sub KellyMort()

Randomize
   Select Case Int((3 - 1 + 1) * Rnd() + 1)
      Case 1
         Call macro1
      Case 2
         Call macro2
      Case 3
         Call macro3
    End Select
End Sub

 

[kelly mort]

I just love the magic.

Thanks @Fluff

Thanks @Scott T for that smart fix.

Can you explain that "select" line for me?

 

[Fluff]

You're welcome & thanks for the feedback.

For the select line have a look at this https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/rnd-function

 

[Scott T]

Rather them writing a IF stamen with many elseifs you can use Select case.
When the random number is one the macro1 is called, when it is 2 macro2 is called.

 

[kelly mort]

You're welcome & thanks for the feedback.

For the select line have a look at this https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/rnd-function

Okay cool.

I am okay with the case statement. But this line is strange.
That's where I needed the understanding for:
Int((3 - 1 + 1) * Rnd() + 1)

 

[Fluff]

That's what the link explains

 

[kelly mort]

That's what the link explains

Cool explanation there.

Now I can tweak it later.

Have a wonderful time

 

[Fluff]

You're welcome