Need help coding a "generate random" button

[StarckR]

I'm creating a button to help my coworkers be able to automatically generate a book from a list of our books.
I want to use the following code in a button =INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1) so that all she has to do is click the button and it generates a random book title for her.
But I'm unsure how to code it correctly. Could someone please help me with this?

Thank you!!

 

[Fluff]

Hi & welcome to MrExcel.
If the button is on the same sheet as the data try

Sub StarckR()
   Range("I3") = Evaluate("INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)")
End Sub

Change I3 to the cell you want the output.

 

[StarckR]

Hi & welcome to MrExcel.
If the button is on the same sheet as the data try

Sub StarckR()
   Range("I3") = Evaluate("INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)")
End Sub

Change I3 to the cell you want the output.

There is already some code in the button, so will it look like this:

Private Sub CommandButton1_Click()
Sub StarckR()
Range("I3") = Evaluate("INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)")
End Sub
End Sub

I tried that but got an error

 

[Fluff]

In that case just add this to your existsing button code

Range("I3") = Evaluate("INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)")

 

[StarckR]

In that case just add this to your existsing button code

Range("I3") = Evaluate("INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)")

Thank you so much, it worked!

 

[Fluff]

You're welcome & thanks for the feedback.