With selection - randomly call 1 of 4 macros in each cell.

**Oriya** · 07-28-2020, 04:32 AM

Hello,

I'd really like some help with this because I've got no idea how to deal with the code that randomises anything in VBA.

I'd like some code that (with the selection) will cycle through cells and randomly call 1 of 4 macros in each cell. Can anyone help with that please? I've honestly got no idea where to start.

**dangelor** · 07-28-2020, 08:43 AM

Possibly...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long, x As Double
    For i = 1 To Target.Cells.Count
        x = Int(WorksheetFunction.RandBetween(1, 4))
        Select Case x
            Case Is = 1
                Call Macro1
            Case Is = 2
                Call Macro2
            Case Is = 3
                Call Macro3
            Case Is = 4
                Call Macro4
        End Select
    Next i
End Sub

**Kaper** · 07-28-2020, 08:51 AM

The question is reather vague, especially without a sample file (see yellow banner near the top of the page)
you may start with something similar to:

Sub test()
Dim cell As Range
For Each cell In Selection
  Select Case WorksheetFunction.RandBetween(1, 4)
    Case 1
      Call macro1(cell)
    Case 2
      Call macro2(cell)
    Case 3
      Call macro3(cell)
    Case 4
      Call macro4(cell)
    Case Else
      MsgBox "wow, we are outside of expected scope"
  End Select
Next cell
End Sub

Sub macro1(cell As Range)
cell.Value = 1
End Sub

Sub macro2(cell As Range)
cell.Value = 2
End Sub

Sub macro3(cell As Range)
cell.Value = 3
End Sub

Sub macro4(cell As Range)
cell.Value = 4
End Sub

How to test it: select range C5:C8, press Ctrl and select another range like E8:E11 and run this macro (test) you shall see something like (althought numbers will be different, as it is random process) the attached screenshot