Simple VBA to randomly select from a named row of cells

[Tusalm]

After I press a button, I want the macro to randomly select one of the cells (divided by names) based on a value in another cell.
It's easier if I show it:

Hopefully this gives enough to work with.

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub PickRnd()
   Dim rng As Range
   Dim Rw As Long
   Set rng = Range(Choose(Range("I9").Value, "Weapons", "Armour", "Offhand"))
   Rw = Int(rng.Count * Rnd() + 1)
   Range("K10").Value = rng.Cells(Rw, 1)
End Sub

 

[Tusalm]

Thanks for the help! It seems to be working for the example I gave, though I'm still trying to figure out how certain parts of the code work so that I can translate it to my other project which uses more lists and more possible values for the "I9".

 

[Fluff]

Just add the other named ranges to the list in the order you want them.

 

[Tusalm]

Thank you very much. I was able to make it work!

 

[Fluff]

Glad you sorted it & thanks for the feedback