dış veri yenile sorunu

[yunka]

Sub zamanla()
If ((Time > TimeValue("10:00:00")) And (Time < TimeValue("12:35:00"))) Or ((Time > TimeValue("14:20:00")) And (Time < TimeValue("17:40:00"))) Then
Application.OnTime Now + TimeValue("00:04:00"), "Yenile"
End If

End Sub


Sub Yenile()
Range("B7").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Call zamanla
End Sub

bu kodu veb sayfasından veri almak için düzenledim fakat başlattığım zaman
kırmızı ile yazdığım yerde hata veriyor ilgilenirmisiniz...

 

[yunka]

güncel

soru tekrarı

 

[Korhan Ayhan]

Selamlar,

Hatanın neden kaynaklandığını çözebilmemiz için örnek dosya eklermisiniz.