Excel - Abraham

Que tal Abraham, buenas tardes. Tengo una duda que quisiera plantearte. Utilice un codigo para poder poner en cada pagina de determinada hoja del libro un pie de pagina que se modifica dependiendo de lo que haya en cierta celda, pero no se si lo estoy utilizando bien, porque cada vez que escribo en cualquier otra parte de esa hoja se intenta actualizar por medio de este codigo el pie, aunque no cambia porque lo que se modifica no esta dentro del rango que le corresponde para tomar los datos y cambiar el pie. Hay una forma en que no haga como que se actualiza, y solo lo haga cuando realmente se modifique el rango que le corresponde?, espero haberme explicado, si no con gusto lo vuelvo a hacer. Creo que pasa esto por el SelectionChange que uso, no se si es correcto hacerlo asi o hay otro modo. Te pongo el codigo, gracias de antemano Abraham.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.LeftFooter = Range("F23")
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Negrita""&11PRUEBA"
End Sub

P.D. Lo de como poner el pie de pagina asi lo saque de una pagina que anteriormente me proporcionaste, y lo hice metiendo este codigo en el objeto de excel que correponde a la hoja en donde quiero que se vea el pie de pagina.

Una opcion me parece que seria usar el evento BeforePrint del modulo ThisWorkBook, pruebalo y comenta. Sino intenta con el evento change de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$23" then
ActiveSheet.PageSetup.LeftFooter = Range("F23")
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Negrita""&11PRUEBA"
end if
End Sub

Abraham

Que tal Abraham, probe las dos formas, la que mejor quedaria para lo que quiero hacer es la que detallas con codigo, pero no funciona bien, no cambia el pie de pagina en ningun momento. Cual podra ser la razon?. Esta es la forma que quiero usar, o algo que se le asemeje:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$23" then
ActiveSheet.PageSetup.LeftFooter = Range("F23")
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Negrita""&11PRUEBA"
end if
End Sub

Gracias.

Diego

Pues lo acabo de probar y todo bien.. .donde lo colocaste??? Va en el modulo de la hoja donde quieres los cambios!!!! no en un modulo normal

Abraham

Ya ves que en VBA hay dos parte Microsoft Excel Objetos y Modulos. Lo coloque en la parte donde dice Microsoft Excel Objetos que cuando la abres aparecen las hojas del libro, me meti a la hoja en donde quiero los cambios y ahi lo puse. Estoy mal?, disculpa las molestias, aun no diferencio bien todas las partes.