Sub Demo_Test()
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("imgrollinner").FindElementsByClass("showbox")
r = r + 1: Cells(r, 1) = post.Text
Next post
End Sub