Как зациклить получение данных в Excel?

Из сайта я получаю курсы валют и записываються 6 ячеек. Как зациклить, чтобы каждые 1 или больше секунд, обновлялась сама инфа в ячейках без моей помощи?
Работает так: открываю файл, запускаю макрос, обновились курсы и все. Кликаю еще раз уже не обновляються. Приходиться закрывать ексель и заново открывать тогда запускаю макрос, опять обновляеться инфа в ячейках. Возможно кто знает как другими путями получать данные и записывать в нужные ячейки используя API этой биржи https://api.hitbtc.com/

Буду очень благодарным! Спасибо заранее.

Option Explicit

Sub ÊóðñÁèòêîèíêÐóáëþ()
Dim XMLHTTP As Object
Dim URL$, Txt$, Kurs$
Dim n&, k&, q&, w&, e, r, t, y, u, i, o, p
'" & Chr(34) & "
URL = "https://api.hitbtc.com/api/2/public/ticker"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")

XMLHTTP.Open "GET", URL, False
XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
XMLHTTP.SEND
If XMLHTTP.Status = 200 Then
Txt = XMLHTTP.responseText
n = InStr(1, Txt, "LTCETH") + 17
k = InStr(n, Txt, "" & Chr(34) & "," & Chr(34) & "bid")
Kurs = Replace(Mid(Txt, n, k - n), " ", "")
Range("E2").Value = "" & Kurs & ""

q = InStr(1, Txt, "LTCETH") + 35
w = InStr(q, Txt, "" & Chr(34) & "")
Kurs = Replace(Mid(Txt, q, w - q), " ", "")
Range("F2").Value = "" & Kurs & ""

e = InStr(1, Txt, "ask") + 6
r = InStr(e, Txt, "" & Chr(34) & "")
Kurs = Replace(Mid(Txt, e, r - e), " ", "")
Range("A2").Value = "" & Kurs & ""

t = InStr(1, Txt, "ask") + 27
y = InStr(t, Txt, "" & Chr(34) & "")
Kurs = Replace(Mid(Txt, t, y - t), " ", "")
Range("B2").Value = "" & Kurs & ""

u = InStr(1, Txt, "EMCBTC") + 17
i = InStr(u, Txt, "" & Chr(34) & "")
Kurs = Replace(Mid(Txt, u, i - u), " ", "")
Range("C2").Value = "" & Kurs & ""

o = InStr(1, Txt, "EMCBTC") + 34
p = InStr(o, Txt, "" & Chr(34) & "")
Kurs = Replace(Mid(Txt, o, p - o), " ", "")
Range("D2").Value = "" & Kurs & ""

End If
Set XMLHTTP = Nothing

End Sub