Sub Automate_IE()
    Dim URL$, IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    URL = "http://www.excelworld.ru/forum/2"
    IE.Navigate URL
End Sub

Sub Automate_FX()
Set objShell = CreateObject("WScript.Shell")
objShell.Run ("""C:\Program Files\Mozilla Firefox\Firefox.exe"" ""http://www.excelworld.ru/forum/2""")
Application.Wait (Now + TimeValue("00:00:05"))
objShell.Run ("""C:\Program Files\Mozilla Firefox\Firefox.exe"" ""http://www.excelworld.ru/forum/10""")
End Sub

Sub ww()
    ActiveWorkbook.FollowHyperlink ("http://www.excelworld.ru/forum/10-36393-1")
End Sub

Sub U_214()
    With CreateObject("WScript.Shell")
        .Run "https://www.youtube.com/?gl=RU&hl=ru"
    End With
    Shell ("C:\Program Files (x86)\Mozilla Firefox\firefox.exe")
End Sub

Sub RunChrome(ByVal url As Variant)
    Dim v As Variant
    With CreateObject("WScript.Shell")
        On Error Resume Next
        For Each v In url
            Shell """" & .RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\") & _
                """ --new-window """ & IIf(IsEmpty(v), url, v) & """"
        Next
    End With
End Function
Sub RunFirefox(ByVal url As Variant)
    Dim v As Variant
    With CreateObject("WScript.Shell")
        On Error Resume Next
        For Each v In url
            Shell """" & .RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.exe\") & _
                """ -new-window """ & IIf(IsEmpty(v), url, v) & """"
        Next
    End With
End Function

RunChrome array("https://www.youtube.com/?gl=RU&hl=ru","http://www.excelworld.ru/forum/2")