Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim X, CtrlRange Dim ii As Long ii = 0 For Each X In WebBrowser1.Docum…