Как обновить значение функции, берущей время с сервера, при каждом открытии книги? - VBA

Формулировка задачи:

Добрый день, есть функция вставки времени с сервера:

Private Function GetRealTime(Optional ByVal GMT& = 4) As Date
     On Error Resume Next: Err.Clear: Dim http As Object, URL$, GMT_Time$, m$, mv$
     'GetRealTime = Now        'значение по-умолчанию
 
    Set http = CreateObject("Microsoft.XMLHTTP")
     URL$ = "http://rbc.ru/"        ' можно указать практически любой сайт
    http.Open "GET", URL$, False
     http.Send
 
    GMT_Time = http.GetResponseHeader("Date")
     Set http = Nothing
 
    ' пример полученной строки:  Sun, 27 Apr 2014 06:14:44 GMT
    If Not (GMT_Time Like "???, *# ??? #### ##:##:##*GMT*") Then Exit Function
 
    GMT_Time = Trim(Split(GMT_Time, ",")(1))
     GMT_Time = Trim(Split(GMT_Time, "GMT")(0))
     m$ = Trim(Split(GMT_Time)(1))
     mv$ = (InStr(1, "janfebmaraprmayjunjulaugsepoctnovdec", m$, vbTextCompare) + 2) / 3
     GMT_Time = Replace(GMT_Time, " " & m$ & " ", "." & Format(mv$, "00") & ".")
 
    GetRealTime = CDate(GMT_Time) + Val(GMT&) / 24
 End Function

Данная ф-ция вставляет реальное время на скрытом запороленном листе. Проблема заключается в том, что реальная дата/время не обновляется автоматически. Т.е. если я сохранил файл вчера и была вставлена с помощью getrealtime(3) дата, то сегодня, открыв файл эта дата и осталась вчерашней. Другими словами без Ф2+Ентер она не обновляется. как можно сделать так, чтобы эта функция работала по принципу функции сегодня(), которая обновляется при каждом открытии файла?

Решение задачи: «Как обновить значение функции, берущей время с сервера, при каждом открытии книги?»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_Open()
    GetRealTime(3)
End Sub
                        