Function RandomSelection(aRng As Range)
'Update20131113
Dim index As Integer
Randomize
index = Int(aRng.Count * Rnd + 1)
RandomSelection = aRng.Cells(index).Value
End Function

(Dungeons & Dragons)
Rulebook featuring "high magic" options, including a host of new spells.