.getElementsByName("ResourceUrl")(0).Value = "" & urladdress & ""

Sub RKN()

urladdress = Workbooks("RKN.xlsm").Sheets("Лист1").Range("B2")
texttosend = Workbooks("RKN.xlsm").Sheets("Лист1").Range("B3")
    With CreateObject("internetexplorer.application")
        'Запускаем IE и загружаем страницу
        .Visible = True
        .Navigate "https://eais.rkn.gov.ru/feedback/"
         While .Busy Or (.ReadyState <> 4)
            DoEvents
        Wend

        'Вносим данные
        With .Document
            .getElementsByName("Type")(0).Value = "pharmacy"
            .getElementsByName("ResourceUrl")(0).Value = "" & urladdress & ""
            .getElementsByName("MediaTypeU[]")(3).Click
            .getElementsByName("CommentU")(0).Value = " " & texttosend & " "
            .getElementsByName("ReporterLastName")(0).Value = "Петров"
            .getElementsByName("ReporterFirstName")(0).Value = "Василий"
            .getElementsByName("ReporterMiddleName")(0).Value = "Романович"
            .getElementsByName("ReporterBirthYear")(0).Value = "1955"
            .getElementsByName("ReporterCountry")(0).Value = "РФ"
            .getElementsByName("ReporterEmail")(0).Value = "pet.vas.019283per@example.ru"
            .getElementsByName("SendNotification")(0).Click
        End With
    
    End With
    
End Sub

=ЕСЛИМН(A4<27;"Ответ1";A4>85;"Ответ2";A4="-";"Дефис")

=ЕСЛИОШИБКА(ЕСЛИМН(И(D5>G5;(D5-G5)>=(D5*1)/100;(D5-G5)<(D5*1.1)/100);"Д1";И(D5>G5;(D5-G5)>=(D5*1.1)/100;(D5-G5)<(D5*1.2)/100);"Д2";И(D5>G5;(D5-G5)>=(D5*1.2)/100;(D5-G5)<(D5*1.3)/100);"Д3";И(D5>G5;(D5-G5)>=(D5*1.3)/100;(D5-G5)<(D5*1.4)/100);"Д4";И(D5>G5;(D5-G5)>=(D5*1.4)/100;(D5-G5)<(D5*1.5)/100);"Д5";И(D5>G5;(D5-G5)>=(D5*1.5)/100;(D5-G5)<(D5*2)/100);"Д6";И(D5>G5;(D5-G5)>=(D5*2)/100);"Д7");"-")

=ЕСЛИ(G5>D5;"Д1";"-") 

=ЕСЛИ(G5>D5;"Д1";"-")

=СРЗНАЧ(НАИМЕНЬШИЙ($A$1:A10;{1;2;3;4;5}))

Sub Загрузка()
Dim curr
For Each curr In Array("EURUSD=X", "GBP=X")
Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url https://query1.finance.yahoo.com/v7/finance/download/" & curr & "?period1=1609459200&period2=1640908800&interval=1d&events=history&includeAdjustedClose=true")
Next curr
End Sub

https://query1.finance.yahoo.com/v7/finance/download/EURUSD=X?period1=1609459200&period2=1640908800&interval=1d&events=history&includeAdjustedClose=true

https://query1.finance.yahoo.com/v7/finance/download/GBP=X?period1=1609459200&period2=1640908800&interval=1wk&events=history&includeAdjustedClose=true

FSO.DeleteFile "C:\Users\М\Исходные\Downloads\d125.zip"
Err.Clear

FSO.DeleteFile "C:\Users\М\Исходные\Downloads\d125.zip"
Err.Clear

Sub Скачать()
CreateObject("WScript.Shell").Run """" & "C:\Program Files\Google\Chrome\Application\chrome.exe"" -url https://www.vostbank.ru/upload/iblock/ab6/prilozhenie-n-10.pdf.zip", 1, True
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "C:\Users\Максим\Downloads\prilozhenie-n-10.pdf.zip.pdf", "C:\Users\Максим\Desktop\"

MsgBox "Макрос закончил работу."

End Sub

Sub Скачать()
Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url https://www.vostbank.ru/upload/iblock/ab6/prilozhenie-n-10.pdf.zip")
CreateObject("WScript.Shell").Run """" & "C:\Program Files\Google\Chrome\Application\chrome.exe -url https://www.vostbank.ru/upload/iblock/ab6/prilozhenie-n-10.pdf.zip" & """", 1, True

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.MoveFile "C:\Users\Максим\Downloads\prilozhenie-n-10.pdf.zip.pdf", "C:\Users\Максим\Desktop\"

MsgBox "Макрос закончил работу."

End Sub

Sub Скачать()
Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url https://static.qbs.com/d125.zip")
Application.Wait (Now + TimeValue("0:07:00"))
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "C:\Users\Максим\Downloads\d125.zip", "C:\Users\М\Исходные\"
End Sub

Sub Test_vik()


aName = Array ("Файл","Имя","Лист2")
For i = 1 To UBound(aName)

Workbooks.Open Filename:="C:\Users\Максим\Desktop\11111111111\" & i & ".xlsb"

'Тут работает макрос

    
    Next i

End Sub

Sub Макрос()
Dim AA As Byte

    For AA = 1 To 50
          Workbooks.Open Filename:="C:\Users\Максим\Desktop\11111111111\" & AA & ".xlsb" 
          'Здесь работает макрос
   Next AA
End Sub

Option Explicit
Private WithEvents App As Application

'Назначаем значение переменной App
Private Sub Workbook_Open()
      Set App = Application
End Sub

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim objSh As Object
If Sh.Name = "Лист1" Then
   If Not Intersect(Target, Range("K5:K7")) Is Nothing Then
     If Target = "Сигнал" Then
Set objSh = CreateObject("Shell.Application")
objSh.Open ("C:\Users\Максим\Music\1.wma")
     End If
  End If
End If
End Sub