Edit, Format random selection

[saman110 via OfficeKB.com]

Hello,

I have figured out how to generate a random selection of a range. My next
chalenge is to edit or format my random selection and and look for another
pick without holding the last format. Is there anyone that can help me?

EX. If my cell returns sam12 from the the range, I would like to edit sam12
(make it red color) and look for another selection which is not red and if it
pick the one that I made it red it would show it.

thx.

I paste the below module and in one of the empty cells i

type: =SampleNR(A1:T49999)


Public Function SampleNR(rSource As Range) As Variant
Dim vTemp As Variant
Dim nArr() As Long
Dim nSource As Long
Dim nDest As Long
Dim nRnd As Long
Dim nTemp As Long
Dim i As Long
Dim j As Long

Application.Volatile
nSource = rSource.Count
With Application.Caller
ReDim vTemp(1 To .Rows.Count, 1 To .Columns.Count)
nDest = .Count
End With
If nDest > nSource Then
SampleNR = CVErr(xlErrNA)
Else
ReDim nArr(1 To nSource)
For i = 1 To nSource
nArr(i) = i
Next i
For i = 1 To nDest
nRnd = Int(Rnd() * (nSource - i + 1)) + i
nTemp = nArr(nRnd)
nArr(nRnd) = nArr(i)
nArr(i) = nTemp
Next i
nTemp = 1
For i = 1 To UBound(vTemp, 1)
For j = 1 To UBound(vTemp, 2)
vTemp(i, j) = rSource(nArr(nTemp))
nTemp = nTemp + 1
Next j
Next i
SampleNR = vTemp
End If
End Function