Numero sorteado (RND) repetindo - AJUDA POR FAVOR

Question

Pessoal fiz uma planilha usando vba q atraves de uma funcão ira preencher um textbox sempre q ela for aberta com um numero randomico entre 1.000.000, o problema é q estou abrindo a planilha e esta me trazendo o mesmo valor repetido



Private Sub Workbook_Open()
dim s as string
s = sorteia
textbox1.text = s
End Sub


Function sorteia() As String
Dim a As Long
Dim num As String

a = Int(Rnd * 100000)

num = CStr(a)

sorteia = num

End Function



o q esta errado nesse codigo q esta trazendo sempre o mesmo valor quando abro a planilha?


obrigado a todos pela ajuda

Answer 1

ninguem tem nenhuma sugestao???

Answer 2

Faltou só uma palavrinha:

 

Function sorteia() As String
Dim a As Long
Dim num As String
          Randomize

a = Int(Rnd * 100000)

num = CStr(a)

sorteia = num

End Function