Calcular MD5 con Excel

[tazzwt]

Tengo que sacar el valor de 100 filas aprox a formato MD5
Pueden ser mas filas o miles.

Al llamar a la funcion seria algo asi:

=md5(C2)

pero no funciona.

Demo:



Alt+F11 para acceder al editor de codes.

Código Excel:

Sub function_md5()
    Dim x As Integer
    x = 1
    While x < 100
    Sheets("Hoja1").Range("C" & x).Select = function_md5("B" & x)
    x = x + 1
    Loop
End Sub