error de compilación

hola, Jorge !

1) (hasta donde se) cuando un codigo indica como causa de error a funciones basicas de vba (generalmente)
se debe a referencias perdidas, nombres "ambiguos" (o duplicados) que la aplicacion (vba) no puede resolver

2) en donde falla, comprueba si en el proyecto de macros hay referencias "perdidas" a librerias
desde el editor de vba (menu) herramientas / referencias...
-> busca alguna que diga FALTA: xxx o MISSING: xxx

3) si se trata de alguna de las normales, pudiera ser necesario (re)registrar excel (en el registro de windows)
-> desde el boton inicio -> ejecutar -> excel /regserver
(es probable que debas especificar la ruta completa al excel delimitada por comillas dobles)
(p.e.) "c:\archivos de programa\microsoft office\office\excel.exe" /regserver

4) (por si las dudas)... para la version 2007, es necesario ejecutar una (re)instalacion desde el panel de control de windows:
(agregar / quitar programas) con la opcion de "reparar"

5) otra (posible) causa del error es, si (p.e.) al simplemente iniciar excel NO aparece el (normal) libro1 en blanco
(en ese caso) pudiera tratarse de algun virus que se "auto-carga" desde algun directorio de inicio (xlstart???)

comentas (si hubiera) algun detalle adicional ?
saludos,
hector.

__ OP __

he reinstalado excel y al abrir el libro agencia.xls me genera el siguiente error de compilación
"no se puede encontrar el proyecto o la biblioteca"
en este libro tengo varias hojas con con controles insertados desde el cuadro de controles en alas hojas.. y código en VB
no se si falta chequear alguna referencia... el error me lo ubica en la siguiente línea:
Private Sub Workbook_Open()
Worksheets("Producción").cldFechaExpedicion = Date
soambreando Date
y luego aparece el mismo error en:
If (Decimales > 0) Then
Letras = Letras & " Y "
Letras = Letras & Format(Decimales * 100, "00") & " PESOS M/CTE. """
num_letras = Letras
Exit Function
sombreando Format