ejecutar macro al cambiar de celda

[suprempada]

que tal 3 pies......
ya abri el entorno de VB... y en el panel izquierdo, le di doble click a la hoja 'secuencial', ahi en Microsoft Excel Objec y pegue el codigo de la macro encapsulado entre estas dos lineas:

Sub Worksheet_Change(ByVal Target As Range)
'el codigo de la macro.....
End Sub

y ahora.. al parecer si ejecuta la macro cada vez que hay un cambio en alguna celda de 'Secuencial'... pero ahora me marca error en la funcion limpia_posiciona() que se llama dentro de la macro.... esa funcion tambien la pegue dentro de 'Secuencial',, he aqui la funcion:

Function limpia_posiciona()

no_hojas = Worksheets.Count

i = 2

While i <= no_hojas

Worksheets(i).Activate
'Cells.Select
Range("A10:K655").Select 'en esta linea me manda el debug
Selection.ClearContents
Range("A10").Select

i = i + 1

Wend

Worksheets(1).Activate

End Function

y antes... cuando ejecutaba la macro estando en el Modulo1, es decir... Herramientas -> Macro -> Ejecutar....... no me marcaba error..... y ahora si me manda a esa linea , cual es el error????