Borrar todo el codigo de un modulo

Hola a todos!
Este codigo lo saque de esta pagina http://www.cpearson.com/excel/vbe.htm
Tilde la referencia "Microsoft Visual Basic For Applications
Extensibility
5.3", pero no logro que funcione.
El error es 1004, Error en el metodo VBProyect del bojeto Workbook en la
linea 10
Gracias.
Sub DeleteAllCodeInModule()
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim HowManyLines As Long
10 Set VBCodeMod =
ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule
20 With VBCodeMod
30 StartLine = 1
40 HowManyLines = .CountOfLines
50 .DeleteLines StartLine, HowManyLines
60 End With
End Sub

Fabian escribio en el mensaje ...
... de esta pagina http://www.cpearson.com/excel/vbe.htm
Tilde la referencia "Microsoft Visual Basic For Applications Extensibility 5.3", pero no logro que funcione.
El error es 1004, Error en el metodo VBProyect del bojeto Workbook en la linea 10 [...]
10 Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule [...]

KL escribio en el mensaje ...
... me funciona... y no consigo reconstruir tu problema [...]

hola, chicos !

> Fabian escribio en el mensaje ...
> ... de esta pagina http://www.cpearson.com/excel/vbe.htm
> Tilde la referencia "Microsoft Visual Basic For Applications

> El error es 1004, Error en el metodo VBProyect del bojeto Workbook en la

> 10 Set VBCodeMod ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule [...]

>> KL escribio en el mensaje ...
>> ... me funciona... y no consigo reconstruir tu problema [...]

[solo] 'probabilidades'...
1.- el proyecto de macros esta protegido -?-
2.- el nombre del modulo es 'diferente' -?-
3.- si usas excel 2002/2003...
te falta poner una marca en la opcion de 'confiar en el acceso a

[excel - menu] herramientas / macros / seguridad / [pestaña] fuentes

comentas datos adicionales?
saludos,
hector.

Ya funciona! Gracias KL Gracias Hector Miguel