Excel vba error de compilacion

[asbury]

He grabado una excel con la herramienta de excel.
Al intentar ejecutarla me de "Error de compilacion: El procedimiento externo no es valido".
la macro es extremadamente fácil. Tan solo quiero que se situe en la celda F16 y copie el valor de la celda F9.
Este es el código de VBA que crea la herramienta


Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 20/09/2008'

'
Range("F15").Select
ActiveCell.FormulaR1C1 = "=+R[-6]C"
Range("F16").Select
End Sub

¿QUE OCURRE?
GRACIAS

[David]

Yo lo he probado y me funcionó, ¿cuál versión de Office estás usando?, ¿cómo estás ejecutando el código?, ¿en qué linea te da el error?.

[asbury]

ES OFFICE 2003

Cuando la ejecuto, se abre VBA y se sombrea la palabra FALSE de esta frase en una ventana diferente del código

Application.DisplayAlerts = False



alguna idea?

[David]

¿Ese código lo pusiste tú?. Porque el error no está en tu macro grabada, sino en ese código, que dependiendo del contexto también debería funcionar. Si no fuiste tú quien lo puso, deberías eliminarlo.

[asbury]

El código lo puso excel. Yo solo le use la opción grabar macro de excel.
¿como lo puedo eliminar?
podría borrar todo rastro de las macros para empezar de nuevo?
como lo puedo hacer?
Mil gracias

[David]

Borra la línea que te da error si no está dentro de tu función grabada.

[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