VBA button - reference to another sheet

Hi,
Sorry if this question is abit to "simple" to answor, but im extremly new at this - so if someone has time to help i would be very thankful!

OBS :Code below.
What i want to do is to press a button that randomly chooses a "restaurang" from a list (thats on another sheet) and puts it in a cell (on the current sheet). All in the same excel file, just diffrent sheets. So in the sheet with a list of "restaurangs" theres a.. list which it should choose from.

Below is the code. And under i explain what the problem is.

Sub RandomPlace_Click()
Dim ListCount As Integer, num
Dim RandomNumber As Integer
Dim rng As Range

Set rng = Sheets("Rådata-Restaurang").Range("B3:B20")
ListCount = rng.Count
RandomNumber = Int(ListCount * Rnd + 1)
ActiveSheet.Range("B11").Select
ActiveSheet.Range("B11").Value = ActiveCell.Offset(RandomNumber - 1, 0).Value
End Sub

I believe that, since i didnt make the code. that the "set rng" doesnt understand that i want to set the range in another sheet since now it randomly picks a cell between b3 and b20 in the CURRENT sheet and puts it in B11, instead of picking the ones from the OTHER sheet.

Any ideas :/ ? Would be extremly greatful!

You just need to change this row

 Set rng = Sheets("Rådata-Restaurang").Range("B3:B20")

Since i do not have a sample file to look at, all you need to do is change the "Radata-Restaurang" to the name of the "OTHER" sheet.

This is what is messing up the code -

 ActiveSheet.Range("B11").Select
ActiveSheet.Range("B11").Value = ActiveCell.Offset(RandomNumber - 1, 0).Value

You need to find the address of the cell that contains the random number and then offset it by 1 column.

Please upload a workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

Show a before and after situation and if it's not blindingly obvious how you have arrived at your results some explanatory notes as well.

Regards

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.