UserForm1.WebBrowser1.Document.snd.All(pn).Value = 1
WebBrowser1.Document.All("s1").Click
Do Until UserForm1.WebBrowser1.ReadyState = 4
DoEvents
Loop
delay (1)
WebBrowser2.Navigate zz
Do Until UserForm1.WebBrowser2.ReadyState = 4
DoEvents
Loop
delay (1)
xxx = xxx - 1
If xxx = 0 Then GoTo endddd
GoTo nexttt
语句的第一句是否有错误~

你调试看错误 出在哪里的。
有可能是你的WebBrowser1是一个私有控件，所以不能在其他窗体中进行访问。

還在用 DoEvents 和goto？
請改用 TRY  CATCH END TRY