Randomizer One Poem by Alvinzor Flores

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