Set oElement = IE.document.getElementById("gt-res-content")

[/CODE]Sub clear_r ()
Dim x&, i&, j&, s$, ii&, a
    x = Cells(Rows.Count, 6).End(xlUp).Row - 9
For i = x To 5 Step -1
        If Cells(i, 6) = Empty Then
          Rows(i).ClearContents
        End If
     Next
End Sub  [CODE]

Sub NameFilePast()
        Dim sFolder, rFndRng As Range
    Dim li As Long
    Dim sValue As String, sOldName As String, sNewName As String, sExpansion As String
    sFolder = Application.GetOpenFilename("JPEG Files(*.jp*),*.jp*", , "Выбрать файлы", , True)
    Mask = "*.jpg"
    k = 7    'номер ячейки
    fName = Dir(Path & Mask)
    Do While fName <> ""
         Cells(k, 2).Value = Left(fName, Len(fName) - 4)    'Cells(k, 1) - номер столбца
        k = k + 1
        fName = Dir
    Loop
End Sub

Application.Run "ShowForm_UserForm1” и 'Application.Run "файл1.xlsi! ShowForm_UserForm1"

Sub DeleteProcedure()   
Dim iProcedure As String   
Dim iVBComponent As Object   
Dim iStartLine As Long   
Dim iCountLines As Long   
Dim Killed As Boolean   
    iProcedure = InputBox(Prompt:="Введите имя макроса," & _   
    vbCrLf & "который требуется удалить", Title:="Удаление макроса";)   
    If iProcedure$ = "" Then _   
    MsgBox "Вы не указали имя ненужного макроса", 48, "Ошибка": Exit Sub   
    For Each iVBComponent In ActiveWorkbook.VBProject.VBComponents   
        With iVBComponent.CodeModule   
             If .Find("Sub " & _   
                iProcedure$, 1, 1, .CountOfLines, 1) = True Then   
                iStartLine& = .ProcStartLine(iProcedure$, 0)   
                iCountLines& = .ProcCountLines(iProcedure$, 0)   
                .DeleteLines iStartLine&, iCountLines&   
                Killed = True   
                Exit For   
             End If   
        End With   
    Next   
    If Killed = True Then   
        MsgBox "Макрос " & iProcedure$ & " удалён!", 64, "Удаление макроса"   
    Else   
        MsgBox "Макрос " & iProcedure$ & " не найден!", 48, "Удаление макроса"   
    End If   
End Sub

Range(Cells(5, 2), Cells(Rows.Count, Cells(5, 11).Column).End(xlUp)).Select