Excel - Error macro al cambiar libro excel

Buenos días,

Como puedo hacer para que no se me detenga esta macro al cambiar de libro de excel?


Sub ActualizarHora1()
'Poner la hora en una celda Worksheets

("Hoja1").Range("R12").Value = Now - Worksheets("Hoja1").Range("P12").Value

'Lanzar el siguiente evento 1 segundo después

dtHoraSiguiente = Now + (1 / 86400) Application.OnTime dtHoraSiguiente, "ActualizarHora1"

End Sub

Muy buenas.

Puedes hacer algo así:


libro = ThisWorkbook.Name
Workbooks(libro).Sheets("Hoja1").Range("R12").Value = Now - Workbooks(libro).Sheets("Hoja1").Range("P12").Value

Un saludo. Juanjo.