Excel - Petición de un enlace de un código de instrucciones que he visto en un artículo de Internet.t

Por favor, ¿podria alguien intentar ejecutar el programa cuyo codigo de instrucciones mostraré más abajo? Lo que pido es que escriba una persona dicho código de instrucciones en una hoja de cálculo excel cuya versión sea la del 2017 o una anterior(o sea, una del 2016, del 2015, del 2014 o...; la primera versión creo que fue la del 2003). Si logra ejecutar el programa(lo que hace este es calcular con precisión el número de particiones ordinarias que se pueden hacer de un numero), envieme, por favor, el enlace del mencionado código de instrucciones.El código es el siguiente:



Public function partic(n)

dim a(40,40)
dim i,s,h,k


if n=1 then partic=1:exit function
k=n
for i=1 to n
a(1,i)=1
a(i,i)=1


next i

for h=2 to n
for i=2 to h-1
m=h-i
s=0
for j=1 to i:s=s+a(j,m):next j
a(i,h)=s
next i
next h
For h=1 to n
s=0<
for i=1 to k
s=s+a(i,h)
next i
next h

partic=s

end function