Sub
FillAllocations()
Dim
rngFill
As
Range
Dim
rng
As
Range
Set
rngFill = Range(
"C2:C26"
)
rngFill.ClearContents
For
Each
rng
In
rngFill.Cells
rng.Value =
"X"
&
CStr
(rng.Row - 1) &
" -> "
& GetRandomize()
Next
End
Sub
Function
GetRandomize()
As
String
Dim
rngPropList
As
Range
Dim
rngAllocList
As
Range
Dim
strProp
As
String
Dim
iRow
As
Integer
Dim
rng
As
Range
Set
rngPropList = Range(
"A2:A26"
)
Set
rngAllocList = Range(
"C2:C26"
)
Do
iRow = Rnd() * 24 + 1
strProp = Range(
"A"
&
CStr
(iRow + 1))
Set
rng = rngAllocList.Find(strProp)
Loop
While
Not
rng
Is
Nothing
GetRandomize = strProp
End
Function