【Excel】rand関数の使い方を教えていただきたいのですが、0～9999までの整数を自動発番させる場合、どのように式を書けばよいのでしょうか？

Sub macro1()

Dim Xoffset, Yoffset, x, y, y1, y2, c

Const MAX = 10000

Xoffset = 1
Yoffset = 0

For y = 0 To MAX - 1
cells(y + Yoffset, Xoffset) = y
Next

For y = 0 To MAX - 1
y1 = Int(Rnd() * MAX)
y2 = Int(Rnd() * MAX)
If y1 <> y2 Then
c = cells(y1 + Yoffset, Xoffset)
cells(y1 + Yoffset, Xoffset) = cells(y2 + Yoffset, Xoffset)
cells(y2 + Yoffset, Xoffset) = c
End If
Next

End Sub

　うん？#a2は
=int(rand()*10000)
としてやらないと