Insert module
Function RandomSelection(aRng As Range)
Dim index As Integer
Randomize
Index=Int(aRng.Count * Rnd + 1)
RandomSelection = aRng.Cells(index) .Value
End Function
=INDEX(A1: A8, RANDBETWEEN(1, COUNTA(A1: A8)))
tools > options > chart > plot empty cells as
set cell as a value
Range('B3') .Value = 2
try to use
someVariable = Range('A1') .Text
instead
someVariable = Range('A1') .Value
Alvinzor Flores
http://www.poemhunter.com/poem/randomizer-one/
