求指教，此组命令有哪里不对？

wolf5418

这是一位热心大哥帮我写的代码，大哥估计睡了，麻烦大家帮我看看，运行出错，显示“运行时错误-2146232576（80131700）”，自动化错误，我按调试看了一下，“With cd”这里显示黄色，鼠标放上去显示对象变量或with cd块变量未设置。
Dim cd As New ChromeDriver, Ele As WebElement, Eles As WebElements
Dim loginUrl$, checkUrl$
rw = Cells(Rows.Count, 1).End(xlUp).Row
If rw = 1 Then Exit Sub
loginUrl = "https://www.yayaya.com/account/my_page_login"
checkUrl = "https://www.yayaya.com/account/change_rec"With cd
是不是开头Dim cd那里的cd未设置变量？如果是，那应该怎么修改？求大神指教

wolf5418

求大神指教，谢谢