Macro che si attiva in più file

[DPSOS]

Ciao a tutti sono nuovo da queste parti e sopratutto un neofita di VBA.
detto questo ho un problema con una macro che funziona benissimo ma che non so per quale ragione esegue la stessa funzione in qualsiasi altro file che apro contemporaneamente, io invece vorrei che si attivasse solamente in uno specifico file che avrà un nome ben specifico.
La macro l'ho scritta in nel modulo1 anche perchè se la scrivo nel foglio1 non funziona mi restituisce un errore che non trova la macro.
allego lo script:

Sub ImpostaOra()
Sheets(1).Select
Range("G1").Select
ActiveCell.FormulaR1C1 = Time()
Application.OnTime Now + TimeValue("00:00:05"), "ImpostaOra"
End Sub

Potete darmi una mano a risolvere il mio problema?
grazie

[Alexsandra]

può essere che quella macro sia stata generata dal registratore di macro e che avessi avuto selezionata l'opzione "memorizza macro nella cartella macro personali"
se non fosse così quella macro non verrebbe lanciata se non è abbinata ad un evento del foglio di lavoro

[DPSOS]

Ciao Alexsandra a dire il vero la macro l'ho scopiazzata in giro per il sito e poi adattata alle mie esigenze quindi non capisco perché si comporti così.
Comunque provo a spigare in linea di massima cosa sto provando a fare,
ho creato una tabella scadenzario in Excel con n righe le quali hanno una data e un ora di scadenza, raggiunta la scadenza si attivano certi meccanismi che per il momento non sono in discussione in quanto il problema si presenta nel momento in cui gestisco l'ora. Non posso usare la formula =ADESSO() perché altre formule non la considerano e quindi non eseguono la formula. con VBA NOW vado a scrivere nella cella G1 l'ora, che però necessita di essere scritta di continuo o quanto meno ogni 5 secondi. Il file scadenzario andrebbe aperto alla mattina e lasciato li che faccia quello che devo da solo mentre l'operatore lavora ad altri file e/o programmi ecc., ma ecco che qui iniziano i miei problemi, ossia che l'ora me la scrive in tutti i file che ho aperto nella cella G1, in altre situazioni che ho provato se il file scadenzario non è quello su cui si sta lavorando, l'ora non si aggiorna
Non ne vengo a capo.

[Alexsandra]

è questa riga il problema
Sheets(1).Select

sostituisci l'indice del foglio con il nome così
Sheets("Foglio1").Select

ovviamente il nome del foglio sarà nel file che vuoi venga eseguita.
Lasciando l'indice la macro viene eseguita nel foglio attivo e nel foglio che ha indice 1

[DPSOS]

Grazie Alexsandra, in effetti è vero a forza di provarne ci ero arrivato anch'io.
Ora come la chiudo la discussione?

[Alexsandra]

non va chiusa rimane così