Random Rooms

Use this:

PHP Code: 

Sub pick_Random1()
Dim k&, rd(1 To 10000, 1 To 1)
Dim cell As Range
For Each cell In Range("K8:K" & Cells(Rows.Count, "K").End(xlUp).Row) ' from K8 to last used cell in col K
    If Not IsEmpty(cell) Then
        k = k + 1
        rd(k, 1) = cell.Value
    End If
Next
Randomize
For Each cell In Range("B8:E35")
    If cell.Column = 2 Or cell.Column = 5 Then
        cell.Value = rd(Int(Rnd * k + 1), 1)
    End If
Next
Range("B1").Select
End Sub 


In future, should you need a thread moving to a different sub-forum, ask a Mod or Admin to do it for you. Please do not open duplicate threads under ANY circumstances. Thank you.

I have merged the two threads here.

May be:

PHP Code: 

For Each cell In sheets("Sheet3").Range("A1:A" & sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row) 


If that takes care of your original question, please choose Thread Tools from the menu link above and mark this thread as SOLVED. You can also access the SOLVED tag by editing the opening post and choosing SOLVED from the drop-down to the left of the title box.

Also, if you have not already done so, remember that you can reward anyone who offered you help towards a solution for your issue by clicking the small star icon (* Add Reputation) located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of each of those who offered help.