Excel vba error de compilacion

[klazzarini_mf]

Soy nueva en el foro, tengo una duda similar.
me aparece error de compulacion, no se ha declarado function o sub, y si lo hice, aca esta mi funcion:
Function altura(area, diam)

porcen = 0.5
hest = porcen * diam
Do While True
areacalc = diam ^ 2 / 4 * Acos((diam / 2 - hest) / (diam / 2)) - (diam / 2 - hest) * RAIZ(diam * hest - hest * hest)
If Abs(areacalc - area) <= 0.001 Then
Exit Do
Else
deltah = (areacalc - area) / diam

hest = hest - deltah
End If
porcen = hest / diam
Loop
hest = hest * 12
If hest - Int(hest) = 0 Then
altura = hest
Else
altura = Int(hest) + 1
End If
End Function