WiseOwl

Private cd As Selenium.ChromeDriver

Sub DownloadWithHeadless()
    Dim lnk As Selenium.WebElement
    Set cd = New Selenium.ChromeDriver
    With cd
        .SetPreference "download.default_directory", ThisWorkbook.Path & "\"
        .AddArgument "--headless"
        .Start
        .Get "https://www.wiseowl.co.uk/vba-macros/videos/vba-scrape-websites/web-scraping-selenium-chrome/"
        Set lnk = .FindElementByLinkText("here")
        lnk.Click
    End With
End Sub