Option Explicit Sub ex() Dim htmldoc As MSHTML.HTMLDocument Dim htmldiv As Selenium.WebElement Dim htmlul As Selenium.WebElement Dim htmlAs As Selenium.WebElements