Codigo de hora se pone en todo los libros

On 15 ago, 17:00, Age wrote:

Tengo el siguiente codigo anidado en un modulo:

Sub TiempoLoco()
Range("d6").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
End Sub
Sub auto_Open()
Call TiempoLoco
End Sub

Pero la hora aparece en todos los libros y en todas las hojas que esten
abiertas, ¿que le puedo cambiar para que no suceda eso?

Gracias

Hola,

¿no sera que lo tienes en el libro de macros personal?

si no es asi, [creo que] te valdria especificar el rango de destino
con todos los 'calificadores' , es decir algo asi:

a) si el libro en que quieres que se ejecute la macro es el que la
contiene (que por lo de auto open (aunque no lo he usado nunca y no
estoy seguro) parece que seria lo logico, puedes hacer sto

ThisWorkbook.Worksheets("Hoja_de_Marras").Range("d6").Formula "=NOW()"

b) si es otro libro, algo asi:

Workbooks("Libro_de_marras").Worksheets("Hoja_de_Marras").Range("d6").Formula
= "=NOW()"

mira a ver que tal

un saludo
Ivan