Funcio recalculable

Hola, estoy haciendo un trabajo que empieza apartir de unas celdas que me
generan numeros aleatorios. El problema que tengo es el siguiente:
Con la funcio de excel aleatorio() al apretar F9 se me vuelven a generar
numeros aleatorios. He escrito una funcion que me calcula igualmente
numeros aleatorios con distribucion normal(0,1), pero cuando aprieto F9 no
se me recalcula la funcion. La funcion es la siguiente:

Public Function rndNS() As Double
Static Control As Integer
Static Valor2 As Double
Dim V1 As Double, V2 As Double
Dim Num As Double, Fac As Double
If Control = 0 Then
Do
V1 = 2 * Math.Rnd() - 1
V2 = 2 * Math.Rnd() - 1
Num = V1 * V1 + V2 * V2
Loop While Num >= 1 Or Num = 0
Fac = Sqr(-2 * Log(Num) / Num)
Valor2 = V2 * Fac
Control = 1
rndNS = V1 * Fac
Else
Control = 0
rndNS = Valor2
End If
End Function

Que le tendria que añadir para que sea recalculable con F9?
Gracias.