Sub qwe() Dim driver As New ChromeDriver, post As Object With driver .AddArgument "--headless" ''This is the fix .Get "http://news.mtime.com" End With
For Each post In driver.FindElementByClass("newscontent").FindElementsByTag("h4") Debug.Print (post.Text) Next post
End Sub