Entry into a randomly selected cell

[ChristineJ]

I would like to run a macro that (1) randomly selects one cell in range A1:M20 to enter "Start here". Each time the macro is run, "Start here" would likely appear in a different cell, although it is possible the macro could select the same one. (2) Once "Start here" appears in a cell, a randomly generated number between 1 and 10 should appear two cells to the right and two rows down.

Can this be done? Thanks!

 

[Fluff]

How about

Sub ChristineJ()
   Dim x As Long
   
   Randomize
   With Range("A1:M20")
      x = Int(.Count * Rnd() + 1)
      .Item(x).Value = "Start here"
      .Item(x).Offset(2, 2).Value = Application.RandBetween(1, 10)
   End With
End Sub

 

[ChristineJ]

Works perfectly and is just what I need. Thank you so much for your quick reply. CJ

 

[Fluff]

You're welcome & thanks fr the feedback.

 

[ChristineJ]

Could I ask one more question related to this item in the code.

Is it possible to use this result of .Item(x).Offset(2, 2).Value = Application.RandBetween(1, 10) as a variable to determine another amount?

Example
.Item(x).Offset(3, 3).Value = .Item(x).Offset(2, 2).Value +25
So if .Item(x).Offset(2, 2).Value = 5, .Item(x).Offset(3, 3).Value would = 30

Thanks! CJ

 

[Fluff]

How about

Sub ChristineJ()
   Dim x As Long, y As Long
   
   Randomize
   y = Application.RandBetween(1, 10)
   With Range("A1:M20")
      x = Int(.Count * Rnd() + 1)
      .Item(x).Value = "Start here"
      .Item(x).Offset(2, 2).Value = y
      .Item(x).Offset(3, 3) = y + 25
   End With
End Sub

 

[ChristineJ]

Awesome! This is so helpful. Thank you again.

 

[Fluff]

My pleasure.