Hello Miguel,

Sub t1()
Dim data(1 To 6, 1 To 6) As String
Dim vrndarray
Dim i As Long, j As Long
vrndarray = VBUniqRandInt(36, 36)
For i = 1 To 6
For j = 1 To 6
data(i, j) = "Value " & vrndarray(i * 6 + j - 6)
Next j
Next i
End Sub

You can find my UDF vbuniqrandint he
http://www.sulprobil.com/html/uniqrandint.html

Regards,
Bernd