VBA da aldığım hata yardımcı olurmusunuz

[editedbycenk]

Sub GoToWebSite()
Dim appIE As Object ' InternetExplorer
Dim sURL As String
Application.ScreenUpdating = False

Dim i As Integer
For i = 2 To Sayfa1.Cells(1, 1) + 1

Set appIE = CreateObject("InternetExplorer.Application")

sURL = "& Sayfa2.Cells(i, 1) & "

With appIE
    .Navigate sURL
    .Visible = True
End With

Application.ScreenUpdating = True


Dim Shell As Object
    Dim IE As Object
    Dim a As Variant
 
    Set Shell = CreateObject("Shell.Application")
 
    a = Shell.Windows.Count
    Do While a > 0
        a = a - 1
        Set IE = Shell.Windows(a)
        If TypeName(IE.Document) = "HTMLDocument" Then IE.Quit
    Loop

 
Next i



End Sub

Yukarıdaki kodda yapmaya çalıştığım şey i döngüsü ile web sitesini çekip açmak sonra onu kapatıp bunu sürekli devam ettirmek , If TypeName(IE.Document) = "HTMLDocument" Then IE.Quit satırında hata alıyorum 1 kere açıp kapatıyor sonrada kalıyor , yardımcı olurmusunuz ?