Excel - alguna forma de que una celda que no se actualiza lo haga cada x tiempo?

Public Function MiEvento(rngCelda As Range)

    Range("seleccion").Value = rngCelda.Value

End Function

Public Function MiEvento_1(rngCelda As Range)

Range("q4").Value = rngCelda.Value

End Function

Public Function MiEvento_2(rngCelda As Range)

Range("q11").Value = rngCelda.Value

End Function

Public Function BuscarTT(CeldaBusqueda As Range, RangoTexto As Range, Columna As Integer)

On Error Resume Next

Dim VTexto, Valor: Dim R0, C0, R, C As Integer

VTexto = RangoTexto

R0 = RangoTexto.Row: C0 = RangoTexto.Column

R = Cells.Find(What:=VTexto, After:=CeldaBusqueda, LookIn:=xlValues, lookAt:=xlWhole).Row

C = Cells.Find(What:=VTexto, After:=CeldaBusqueda, LookIn:=xlValues, lookAt:=xlWhole).Column

C = C + Columna

If Err.Number = 0 And R0 <> R Then Valor = Cells(R, C) Else: Valor = "No Sé"

BuscarTT = Valor

End Function