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